# genera dati simulati in formato S-plus

mu <- 10; sigma=2; N=1000

x <- rnorm(N,mu,sigma)

cat(sprintf("list(N=%d,\n",N), file="dati_generati.txt")
cat(sprintf("X=c("), file="dati_generati.txt", append=TRUE)
cat(x, sep=",", file="dati_generati.txt", append=TRUE)
cat(sprintf("))\n"), file="dati_generati.txt", append=TRUE)