powered by
# S3 method for PCA boxplot(x, fac = NULL, nax = 1:3, ...)
data(bot) bot.f <- efourier(bot, 12) bot.p <- PCA(bot.f) boxplot(bot.p) p <- boxplot(bot.p, 1) #p + theme_minimal() + scale_fill_grey() #p + facet_wrap(~PC, scales = "free")
Run the code above in your browser using DataLab