dati <- read.cvs("caduta_in_aria_t-y.csv")
dati <- read.csv("caduta_in_aria_t-y.csv")
plot(dati)
summary(dati)
dim(dati)
source("analizza_lancio.R")
source("analizza_lancio.R")
source("analizza_lancio.R")
source("analizza_lancio.R")
source("analizza_lancio.R")
source("analizza_lancio.R")
source("analizza_lancio.R")
source("analizza_lancio.R")
source("analizza_lancio.R")
source("analizza_lancio.R")
length(v.dtm)
source("analizza_lancio.R")
source("analizza_lancio.R")
source("analizza_lancio.R")
source("analizza_lancio.R")
source("analizza_lancio.R")
source("analizza_lancio.R")
source("analizza_lancio.R")
na
nv
source("analizza_lancio.R")
plot(t[2:(n-1)], Fa)
source("analizza_lancio.R")
source("analizza_lancio.R")
source("analizza_lancio.R")
source("analizza_lancio.R")
source("analizza_lancio.R")
p=locator(2)
log(p$y[2]/p$y[1]) / log(p$x[2]/p$x[1]) 
m = log(p$y[2]/p$y[1]) / log(p$x[2]/p$x[1]) 
a
v
Fa
Fa[v>1]
Fa[v>2]
Fa[v>2] / v[>v2]^2
Fa[v>2] / v[v>2]
Fa[v>2] / v[v>2]^2
mean( Fa[v>2] / v[v>2]^2 )
Fa[v>2] / v[v>2]^2 -> r
r[1:16]
r[1:56]
mean( r[1:56] )
mean( r[1:56] ) / 0.1
q()
