Prova ad eseguire il seguente programma in R, capisci, e spiega, che cosa fa:

while(TRUE) {
 print("Quanti sono i dati?",quote=FALSE); NDati <- scan(file="",n=1);
 print("Introduci uno per uno i dati",quote=FALSE); i <- 0; somma <- 0;
 dati <- scan(file="",n=NDati); print("somma e media sono:",quote=FALSE);
 print( c(sum(dati), sum(dati)/NDati) ) }