Markdown Examples
========================================================
Fundamentals
-------------------------

### PCA of iris

```{r iris, warning=FALSE}
library(datasets, quiet=TRUE)
library(FactoMineR, quiet=TRUE)
data(iris)
```
`r nrow(iris)`
```{r PCA plot, fig.width=9, fig.height=5}
res <- PCA(iris, graph=FALSE, quali.sup=5)
par(mfrow=c(1,2))
plot(res, choix="var")
plot(res, choix="ind", habillage=5)
```
### 
__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
```{r GV, }
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")
```

