standardisation of recruitment

[elfunesto]

when making the standardisation of recruitment series before fitting the glm, we divide by the mean of the series whithout dicscarding das_qal_id > 4
For 2025, we should change
wger[!is.na(wger$das_qal_id) & wger$das_qal_id==3,c("value")] <- NA

for wger[!is.na(wger$das_qal_id) & (wger$das_qal_id==3 | wger$das_qal_id >4),c("value")] <- NA

in R/recruitment/utilities.R

[elfunesto]

we whould also add a flag in compute_retro_analysis to be able to manage the two versions