# uso di un data frame
                             
voti<-read.table("voti.dat", header=TRUE)  # legge i nomi delle colonne
                                           # altrimenti, le chiama V1, V2, etc

            # voti e' ora un 'data frame'        

str(voti)   # o ls.str() per listare tutto 
summary(voti)    
        
voti$Nome
voti$Voto

attach(voti)     # rende Nome e Voto accessibili direttamente 
Voto
Nome                 

length(Voto)
suff<-length(Voto[Voto>=18])
ammessi<-length(Voto[Voto>12])
v30<-Nome[Voto==30]
massimo<-Nome[Voto==max(Voto)]
peggiori<-Nome[Voto==min(Voto)]

summary(Voto)

layout(1)   # in caso la pagina grafica fosse stata ripartita
hist(Voto,breaks=25,main="LEC - Prove pratiche agosto 2007")


postscript(file="pp_agosto07_voti.eps",onefile=FALSE)
hist(Voto,breaks=25,main="LEC - Prove pratiche agosto 2007")
dev.off()

############  variazione sul tema 

vs<-read.table("voti_s.dat", header=TRUE)
str(vs)
summary(vs)
summary(vs$Voto[vs$Sesso=='F'])
summary(vs$Voto[vs$Sesso=='M'])

# etc...