notes<-read.csv2('./data/notes_atenea.csv',sep=",",dec='.')
#recodifiquem la nota a numèric
notes[is.na(notes)] <- 0
notes$P1<-as.numeric(notes$P1Parcial..Real.)
notes$P2<-as.numeric(notes$P2Parcial..Real.)
notes$P3<-as.numeric(notes$P3Parcial..Real.)
notes$P4<-as.numeric(notes$P4Parcial..Real.)
notes$nota<-as.numeric(notes$Total.Parcial..Real.)Literate Programming in R
Informe sobre notes d’Atenea
Nota final
summary(notes) P1Parcial..Real. P2Parcial..Real. P3Parcial..Real. P4Parcial..Real.
Length:259 Length:259 Length:259 Length:259
Class :character Class :character Class :character Class :character
Mode :character Mode :character Mode :character Mode :character
Total.Parcial..Real. P1 P2 P3
Length:259 Min. :0.000 Min. :0.000 Min. :0.00
Class :character 1st Qu.:1.000 1st Qu.:2.000 1st Qu.:0.25
Mode :character Median :2.000 Median :2.500 Median :2.00
Mean :1.657 Mean :1.993 Mean :1.56
3rd Qu.:2.250 3rd Qu.:2.500 3rd Qu.:2.50
Max. :2.500 Max. :2.500 Max. :2.50
NA's :12 NA's :17 NA's :15
P4 nota
Min. :0.0000 Min. : 0.000
1st Qu.:0.0000 1st Qu.: 5.667
Median :0.2500 Median : 8.167
Mean :0.8307 Mean : 7.226
3rd Qu.:1.7500 3rd Qu.: 9.333
Max. :2.5000 Max. :10.000
NA's :36 NA's :11 Entre els 248 (sobre 259) presentats hi ha hagut:
- 200 aprovats
- 48 suspesos, dels quals 25 alumnes amb nota inferior a 3.
Es poden veure els resultats a la Figura Figure 1
hist(notes$nota)