x<-1:25
y<-rnorm(25)
mean(y)
## [1] -0.1489752
sd(y)
## [1] 1.014098
plot (x,y,type="l",col="red",lwd=2)