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)
noelaubalcon <- noel[noel[, "TM"]>7,]

Moyenne Noel: 5.976712

Moyenne Paque: 12.48846