getRotationMatrix
Extract the rotation matrix from dimRedResult objects derived from PCA and FastICA
getRotationMatrix(x)
x |
of type |
The data has to be pre-processed the same way as the method does, e.g. centering and/or scaling.
a matrix
dat <- loadDataSet("Iris")
pca <- embed(dat, "PCA")
ica <- embed(dat, "FastICA")
rot_pca <- getRotationMatrix(pca)
rot_ica <- getRotationMatrix(ica)
scale(getData(dat), TRUE, FALSE) %*% rot_pca - getData(getDimRedData(pca))
scale(getData(dat), TRUE, FALSE) %*% rot_ica - getData(getDimRedData(ica))Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.