# NOT RUN {
library(Rfast)
n <- 50
e <- 50
s <- 5
x <- rbind(
rmvnorm(n, mu = c(5, -5, rep(0, e - 2)), sigma = diag(s, e)),
rmvnorm(n, mu = c(-5, 5, rep(0, e - 2)), sigma = diag(s, e))
)
troppca_fit <- troppca.poly(x)
plot(troppca_fit)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab