Med<-read.table(file="C:/Franco/dottoratoING/test_medicina.txt")

Med

Med2<-Med[,2]
Med2

hist(Med2)

hist(Med2,breaks=40)

qqnorm(Med2)

ks.test(Med2,"pnorm",34.9888,11.1)