data(multidrug)
## this data set contains missing values, therefore
## the 'prcomp' function cannot be applied
pca.res <- pca(multidrug$ABC.trans, ncomp = 4, scale = TRUE)
plot(pca.res)
summary(pca.res)
biplot(pca.res, xlabs = multidrug$cell.line$Class, cex = 0.7)
Run the code above in your browser using DataLab