Chapter 17 Défi 2

Vous avez réalisé que votre outil de mesure de l’absorption n’a pas été calibré correctement sur les sites du Québec et que toutes les mesures sont supérieures de 2 unités à ce qu’elles devraient être.

Utilisez une boucle pour corriger ces mesures pour tous les sites du Québec.
Utiliser une méthode basée sur la vectorisation pour calculer l’absorption moyenne de \(CO_2\) dans les deux zones.

Pour cela, vous devez charger le jeu de données \(\text{CO}_{2}\) en utilisant data(CO2), puis utiliser l’objet CO2.

1.- Utilisation de for et if pour corriger les mesures :

for (i in 1:length(CO2[, 1])) {
    if (CO2$Type[i] == "Quebec") {
        CO2$uptake[i] <- CO2$uptake[i] - 2
    }
}

2.- Utilisez tapply() pour calculer la moyenne de chaque groupe:

tapply(CO2$uptake, CO2$Type, mean)

##      Quebec Mississippi 
##    31.54286    20.88333