Create the scree plot for the fitted eigenvalues
This function will open a new device if not instructed otherwise.
CreateScreePlot(fpcaObj, ...)
fpcaObj |
A object of class FPCA returned by the function FPCA(). |
... |
Additional arguments for the 'plot' function. |
set.seed(1)
n <- 20
pts <- seq(0, 1, by=0.05)
sampWiener <- Wiener(n, pts)
sampWiener <- Sparsify(sampWiener, pts, 10)
res <- FPCA(sampWiener$Ly, sampWiener$Lt,
list(dataType='Sparse', error=FALSE, kernel='epan', verbose=TRUE))
CreateScreePlot(res)Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.