Week 3 - 2

Header 1

Type some 9 text some bold text

• list 1

• list 2

Second level header

Stuff here bad text

1+2

## [1] 3

x<-c(2,3,5)
y<-c(6,3,1)
dat<-data.frame(x,y)
dat

##   x y
## 1 2 6
## 2 3 3
## 3 5 1

dat$z<-x*y
dat

##   x y  z
## 1 2 6 12
## 2 3 3  9
## 3 5 1  5

library(ggplot2)

 head(cars)

##   speed dist
## 1     4    2
## 2     4   10
## 3     7    4
## 4     7   22
## 5     8   16
## 6     9   10

knitr::kable(head(cars))

speed	dist
4	2
4	10
7	4
7	22
8	16
9	10