ch1Demo1.R

getwd()

## [1] "C:/Users/Kathleen/Documents/R"

library(knitr)
a<-1:25
b<-sort(rnorm(25))
mean(b)

## [1] 0.2399444

sd(b)

## [1] 0.9761272

plot(a,b,type="l",col="red")

#knit(spin)("ch1Demo1.R)"))