## EXAMPLE 1
n <- 6 ; p <- 4
X <- matrix(rnorm(n * p), ncol = p)
y <- rnorm(n)
fm <- pcaeigen(X, nlv = 3)
fm$T
transform(fm, X[1:2, ], nlv = 2)
## EXAMPLE 2
n <- 6 ; p <- 4
X <- matrix(rnorm(n * p), ncol = p)
y <- rnorm(n)
fm <- plskern(X, y, nlv = 3)
fm$T
transform(fm, X[1:2, ], nlv = 2)
Run the code above in your browser using DataLab