Code : Tout sélectionner
?ranef
exemple:
Code : Tout sélectionner
re <- ranef(fit, condVar = TRUE)
library(lattice)
dotplot(re)
Code : Tout sélectionner
?ranef
Code : Tout sélectionner
re <- ranef(fit, condVar = TRUE)
library(lattice)
dotplot(re)
Code : Tout sélectionner
df <- data.frame(a=rep(c(1,3),2),b=c(0,0,0,2), c=c(1,0,2,3),d=c(0,0,0,0))
idx <- colSums(apply(df, 2, function(x) x > 0)) == 1
df[, idx, drop = FALSE]
Code : Tout sélectionner
?drop1