Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- set.seed(1)
- dat <- data.frame(
- Diet = sample(1:2),
- Outcome1 = sample(1:10),
- Outcome2 = sample(11:20),
- Outcome3 = sample(21:30),
- Response1 = sample(31:40),
- Response2 = sample(41:50),
- Response3 = sample(51:60)
- )
- ir.pca <- prcomp(dat[,3:5], center = TRUE, scale. = TRUE)
- summary(ir.pca)
- loadings <- ir.pca$rotation
- scores <- ir.pca$x
- correlations <- t(loadings)*ir.pca$sdev
- dat2 <- as.data.frame(dat)
- ggbiplot(ir.pca, choices=c(1,2), # creates a plot with ellipse
- groups=dat2[,1],
- obs.scale = 1,
- var.scale = 1,
- ellipse = TRUE)
Add Comment
Please, Sign In to add comment