Code : Tout sélectionner
max(which(c(diff(x<50),1)==0 & x<50 & (1:length(x))<which.max(x)))+1
Code : Tout sélectionner
d <- dist(t(ex1))
u <- unique(as.matrix(d)==0)
apply(u,1,function(i) colnames(u)[i])
Code : Tout sélectionner
Max_nombre <- function(df) head(df[order(-df$nombre),],2)
Code : Tout sélectionner
grid <- expand.grid(id_quadra=unique(data$id_quadra),n.passage=unique(data$n.passage))
data <- merge(data,grid,all.y=TRUE,sort=FALSE)
Code : Tout sélectionner
df1 <- data.frame(x=1:3, y=letters[1:3])
df2 <- data.frame(u=(1:3)*10, y=LETTERS[1:3])
li <- list(df1,df2)
li
li[[2]][3,1]