# carica un file di lanci

nomeFile <- readline(prompt="dai il nome del file (return per il precedente) ")

if (nomeFile != '') {
  nomeFileOld <- nomeFile 
} else {
  nomeFile <- nomeFileOld
}

cat(sprintf("\nvado a caricare  %s\n", nomeFile))
lancio <- read.csv(nomeFile, header=TRUE)

cat(sprintf("%s contiene %d istanze di %d variabili: ",
            nomeFile, dim(lancio)[1], dim(lancio)[2] ))
cat(sprintf("%s\n", paste(colnames(lancio), collapse = ', ') ))

# plot riassuntivo (matrice di plot!)
plot(lancio)