x <- data.frame(
x1 = 1:20 + rnorm(20),
x2 = 1:20 + rnorm(20, 0, 5),
x3 = sample(20, 20)
)
pca1 <- prcomp(x, center=FALSE, scale=FALSE)
pca2 <- prcomp(x, center=TRUE, scale=FALSE)
pca3 <- prcomp(x, center=TRUE, scale=TRUE)
backTransPCA(pca1)
backTransPCA(pca2)
backTransPCA(pca3)
Run the code above in your browser using DataLab