Analyse de la température à l’école Jean Racine

Température mesurée le vendredi 28 juin par les institutrices.

library(chron)
d<-read.table("Temperature_luminosite_JRacine.csv", h=T, sep=",")
d$DateTime <- as.POSIXct(as.character(d$Date.Time..GMT.02.00), format="%m/%d/%Y %I:%M:%S %p")

Résumé des températures mesurées toutes les demies heures, en °C :

summary(d$Temp...C..LGR.S.N..20279430..SEN.S.N..20279430.)

   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
  30.56   31.98   32.39   32.61   33.69   35.12 

plot(d$DateTime, d$Temp...C..LGR.S.N..20279430..SEN.S.N..20279430., ylab="Température (°C)", xlab="Heure de mesure", pch ="_", cex=3, col="red")
abline(h=c(31,32,33,34,35), col="grey",lty=3, lwd=1)

Résumé des luminosités mesurées toutes les demies heures, en lux :

summary(d$Intensity..Lux..LGR.S.N..20279430..SEN.S.N..20279430.)

   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
   0.00    0.00   10.80  871.89   75.35 9300.10 

plot(d$DateTime, d$Intensity..Lux..LGR.S.N..20279430..SEN.S.N..20279430., ylab="Luminosité (lux)", xlab="Heure de mesure", pch ="_", cex=3, col="blue")
abline(h=c(1000, 2000, 3000, 4000, 5000, 6000, 7000, 8000, 9000), col="grey",lty=3, lwd=1)

La température est montée tout au long de la journée, pour atteindre environ 34°C vers 16h. Les relevés de 10h30 et après 16h30 ne sont peut-être pas très fiables : comme la luminosité y est très différente du reste des mesures, on peut penser que le thermomètre était transféré d’un endroit à un autre.

Je ne sais pas bien où était placé le thermomètre, en particulier s’il était dans la classe de Caroline ou celle de Sylvie, et si le thermomètre était dans un tiroir ou bien posé sur une table. La luminosité en tout cas est extrêmement faible : si ces mesures sont représentatives de la luminosité moyenne de la classe, il y a lieu de s’inquiéter pour les yeux des enfants.