a <- rnorm(10000,1,3)

mean(a)
sd(a)

hist(a)
boxplot(a)
qqnorm(a)

m <- 1000 

for( i in 1:m ) {
 "parancsok"
}