data(bot)
bot.p <- PCA(efourier(bot, 12))
PCcontrib(bot.p)
## Not run:
# library(ggplot2)
# gg <- PCcontrib(bot.p, nax=1:8, sd.r=c(-5, -3, -2, -1, -0.5, 0, 0.5, 1, 2, 3, 5))
# gg + geom_polygon(fill="slategrey", col="black") + ggtitle("A nice title")
# ## End(Not run)
Run the code above in your browser using DataLab