# script usato per generare sample2.dat

x2<-rnorm(50,18,3)
write.table(x2, "sample2.dat",quote=FALSE, row.n=FALSE, col.n=FALSE)