practice-su.R

## ----, global_option, include=FALSE--------------------------------------
library(knitr)
opts_chunk$set(
  warning=FALSE,
  message=FALSE,
  fig.path="figure/")


## ----, eval=FALSE--------------------------------------------------------
## install.packages("devtools", dependencies=T)
## devtools::install_github("rstudio/rmarkdown")


## ------------------------------------------------------------------------
1 + 3


## ------------------------------------------------------------------------
a <- c(1, 2, 3)
a


## ------------------------------------------------------------------------
b <- c(4, 5, 6)
a + b


## ------------------------------------------------------------------------
a * b


## ------------------------------------------------------------------------
mean(b)


## ------------------------------------------------------------------------
data(iris)
head(iris)