Code : Tout sélectionner
grepl("210", df$variable)
Code : Tout sélectionner
grepl("210", df$variable)
Code : Tout sélectionner
> for(i in 6:1148)test[,i]=as.factor(test[,i])
Code : Tout sélectionner
brice_df <- data.frame(
Contrat = rep(names(brice), lengths(brice)),
ID = unlist(brice, use.names = FALSE),
stringsAsFactors = FALSE
)
Code : Tout sélectionner
rm_following_double <- function(x) {
if (anyNA(x)) stop("impossible : valeur(s) manquante(s)")
garde <- x[-1] != x[-length(x)]
x[c(garde, TRUE)]
}
Code : Tout sélectionner
aggregate(data = toto, cbind(produit, sable) ~ Compose, sum)
Code : Tout sélectionner
as.data.frame(table(mon_data$Site, mon_data$Especes))
Code : Tout sélectionner
dplyr::count(mon_data, Site, Especes)
Code : Tout sélectionner
fins <- cumsum(replicats)
debuts <- fins - replicats + 1
liste_corr_repl <-
mapply(
function(m, n) mat_corr[m:n, m:n],
debuts,
fins
)
Code : Tout sélectionner
apply(
db[paste0("atb_J", 1:30)],
1,
which.min
)