#inserimento dati e semplici operazioni
scr<-c(16,18,23,28,29)
orl<-c(15,18,20,24,30)
mat<-cbind(scr,orl)
media<-sum(scr)/5
mean(scr)
var<-sum(scr^2)/5-media^2
plot(scr,orl,type="b")
lscr<-log(scr)
lorl<-log(orl)
plot(lscr,lorl,type="b")
mgeo<-exp(mean(lscr))
c(media,mgeo,median(scr))