Code : Tout sélectionner
tailles <- c(1000, 900, 800, 500, 1200, 300, 450, 100)
Code : Tout sélectionner
tailles <- sample(100:1200, 10, replace = TRUE)
sapply(
tailles / 1.9,
function(t) sum(tailles < t)
)
Code : Tout sélectionner
library(dplyr)
library(tidyr)
df %>% arrange(V7, V8) %>% fill(V8)
Code : Tout sélectionner
data1$Attention <- ifelse(data1$GCQ < 0.4 & data1$RefCQ < 0.4, "ok", "Redo")
Code : Tout sélectionner
fins <- cumsum(b$lengths)
debuts <- fins - b$lengths + 1
indices <- mapply(seq, debuts, fins)
indices_4x1 <- indices[b$values == 1 & b$lengths >= 4]
(res <- unlist(indices_4x1))