if (FALSE) {
require(FactoMineR)
data(decathlon)
res.pca = PCA(decathlon, quanti.sup = c(11:12), quali.sup = c(13), graph = FALSE)
create.rmd(res.pca, file = "PCA.Rmd", document = "pdf_document")
drawn = selection(res.pca)$drawn
writeRmd(start = TRUE, options = "r, echo = FALSE, fig.align = 'center', fig.height = 3.5,
fig.width = 5.5", file = "PCA.Rmd", end = "")
writeRmd("drawn", file = file, dump = TRUE)
writeRmd("plot.PCA(res, select = drawn, choix = 'ind', invisible = 'quali', title = '')",
stop = TRUE, file = "PCA.Rmd")
writeRmd("**", figure.title, " - ", "Individuals factor map (PCA)", "**", file = "PCA.Rmd",
sep = "")
}
Run the code above in your browser using DataLab