Header 1

Type some Text. Want some bold Text. add a formula for display \(\mu=5\). \(H_0:mu=10\)

\[ H_{a}:\mu \neq \mu_{0} \]

1+2

## [1] 3

y<-c(3,4,5)
x<-c(9,8,9)
dat<-data.frame(x,y)
dat

##   x y
## 1 9 3
## 2 8 4
## 3 9 5

dat$z<-x*y
dat

##   x y  z
## 1 9 3 27
## 2 8 4 32
## 3 9 5 45

library(ggplot2)

Second Level Header

Stuff here

~~bad text~~