r.setSeedDS(7189)

r.rNorm(10)
rn1<-r.rNorm(10000)
mean(rn1)
sqrt(var(rn1))
hist(rn1)

rn2<-r.rNorm(10000,mean=7, sd=5)
mean(rn2)
sqrt(var(rn2))
hist(rn2)