# 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)