# Standardizer la variable "absortion" en valeurs relatives
CO2copy$absortionRel = CO2copy$absortion/max(CO2copy$absortion) 

# Observer les résultats
head(CO2copy$absortionRel)