dati <- read.table("lancio.txt")
plot(dati)
ls.str()
plot(data$V1, data$V2)
plot(dati$V1, dati$V2)
plot(dati$V1, dati$V3)
plot(dati$V1, dati$V3, ty='l')
plot(dati$V2, dati$V3, ty='l')
dati <- read.table("lancio.txt")
plot(dati$V2, dati$V3, ty='l')
t <- dati$V1
x <- dati$V2
y <- dati$V3
plot(t, y, ty='l', xlab='t (s)', ylab='y (m)') 
q()
dati <- read.table("t_x_v.txt")
str(dati)
dati
dati <- read.table("t_x_v.txt", header=TRUE)
str(dati)
dati
str(dati)
dati$t
dati$x
dati$v
plot(dati$t, dati$x)
points(dati$t, dati$v)
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.table(nomeFile, header=TRUE)
source("carica_file.R")
source("carica_file.R")
source("carica_file.R")
colnames(lancio)
source("analizza_lancio.R")
q()