# 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...