fork download
  1. #Load the dataset
  2.  
  3. data(iris)
  4.  
  5. iris_data <- iris[, 1:4]
  6.  
  7. # Perform PCA
  8.  
  9. pca_result <- prcomp(iris_data, scale. = TRUE)
  10.  
  11. # Create a biplot
  12.  
  13. biplot(pca_result)
Success #stdin #stdout 0.36s 48552KB
stdin
Jelszó
stdout
Standard output is empty