Une idée :
Code : Tout sélectionner
rl <- rle(paste(df$ID,df$Results, sep = "_"))
sup8 <- rl$values[rl$lengths >= 8]
sup8_1 <- grep("_1$", sup8, value = T)
sub("_1$","",sup8_1)
[1] "13_4" "C_6"
Code : Tout sélectionner
rl <- rle(paste(df$ID,df$Results, sep = "_"))
sup8 <- rl$values[rl$lengths >= 8]
sup8_1 <- grep("_1$", sup8, value = T)
sub("_1$","",sup8_1)
[1] "13_4" "C_6"
Code : Tout sélectionner
dta_tr <- dta[, grep("Trial", names(dta))]
rowSums(dta_tr == "1", na.rm =T)
Code : Tout sélectionner
par(mar = c(5,4,4,4))
barplot(matrix(tab$epaisseur), yaxt = "n")
axis(2, at = cumsum(tab$epaisseur))
axis(4, at = cumsum(tab$epaisseur), label = round(cumsum(tab$CI)))
Code : Tout sélectionner
sqrt((df2$x - df1$x)^2 + (df2$y - df1$y)^2)
Code : Tout sélectionner
df <- data.frame(a = as.factor(1:5), b = rnorm(5))
plot(df$a, df$b)