R

data1 <- read.csv("1950.csv", header=TRUE, sep=";")
head(data1,3)
blagnac <- data1[c(2, 6, 17)]  |> subset(NOM_USUEL == "TOULOUSE-BLAGNAC")
noel <- blagnac[grep("1225", blagnac$AAAAMMJJ), ]
mean(noel$TM)
median(noel$TM)
noelaubalcon <- noel[noel[, "TM"]>7,]
paque <- blagnac[substr(blagnac$AAAAMMJJ,5,9) == "0410", ]

Moyenne Noel: 5.976712 Mediane: 6.8

Moyenne Paque: 12.48846