Markdown Examples

Fundamentals

PCA of iris

library(datasets, quiet = TRUE)
library(FactoMineR, quiet = TRUE)
data(iris)

150

res <- PCA(iris, graph = FALSE, quali.sup = 5)
par(mfrow = c(1, 2))
plot(res, choix = "var")
plot(res, choix = "ind", habillage = 5)

plot of chunk PCA plot

TeX

Arcsin transform

\[ X_n :Binom(p,n) \ \Longrightarrow \ \arcsin\sqrt{\frac{X_n}{n}} \ \xrightarrow[]{d} \ N(\arcsin\sqrt{p}, \frac{1}{4n}) \]

suppress

suppressPackageStartupMessages(library(googleVis))
library(googleVis, verbose = FALSE, quiet = TRUE)

RPubs

http://rpubs.com/estopub/7689.

require(markdown)
result <- rpubsUpload("test Boot", "pcaexampBoot.html", method="internal")
if (!is.null(result$continueUrl)) 
     browseURL(result$continueUrl) else stop(result$error)
## update
updateres <- rpubsUpload("test Boot", "pcaexampBoot.html", result$id, method="internal")