Code R - question 11

code.r

#Q11

MustardAnswer <- c(1, 1)
SeigleAnswer <- c(1, 1)

splittedBySpecies <- split( data , f = data$Espece )

for (species in splittedBySpecies) {
  splittedBySpeciesAndDensity <- split (splittedBySpecies, f = splittedBySpecies$DensiteTot)
}


meanWeightMustard <- mean(splitted$`Moutarde blanche`$Poids)
for(i in splitted$`Moutarde blanche`$Poids){
  if (i > meanWeightMustard) {
    MustardAnswer <- append(MustardAnswer, i)
  }
}

meanWeightSeigle <- mean(splitted$Seigle$Poids)
for(i in splitted$Seigle$Poids){
  if (i > meanWeightSeigle) {
    SeigleAnswer <- append(SeigleAnswer, i)
  }
}