pca.pca <- function(name){
  pca_result <<- prcomp(name, scale=T)
  pca_result
}

pca.summary <- function(name){
  summary(name)
}

pca.biplot <- function(name){
  biplot(name)
}