herve chapuis a écrit :Pour finir, j'ai eu du mal à comprendre read.fwf, mais m'en suis tiré avec read_fwf.
Code : Tout sélectionner
library(dplyr)
donnees %>%
group_by(DATE) %>%
summarise(
PRENEI_Q = mean(PRENEI_Q),
T_Q = mean(T_Q),
PTOT = mean(PTOT),
...
)
Code : Tout sélectionner
tapply(
Data$Ref_Dossier,
Data$Annee,
function(x) length(unique(x))
)