Merci pour ce retour. Content que ça ait pu aider...
Cordialement
Code : Tout sélectionner
power.t.test()
Code : Tout sélectionner
library(dplyr)
df <- data.frame(
c0 = c(1,2,3,4),
c1 = c(1,3,1,4),
c2 = c(3,NA,NA,NA),
c3 = c(1,2,12,0))
df %>%
summarise(across(everything(), ~ sum(!is.na(.))))
df %>%
summarise(across(everything(), n_distinct))
Code : Tout sélectionner
data %>%
mutate(c6 = c5 + cumsum(!is.na(c5)) - 1)