getwd()
## [1] "C:/Users/Diana/Desktop/Stat Methods-Fall 2015/R-Files"
library(knitr)
a<-1:25
b<-sort(rnorm(25))
mean(b)
## [1] 0.02213949
sd(b)
## [1] 1.038616
plot(a,b,type="l",col="red")