R: Occurrence -> séquence binaire?

Question

Quelles sont les meilleures options pour convertir un temps d'occurrence non décroissant en un 0-1 seq? Merci.

d<-c(3,5,9,12,15); 
c(rep(0,d[1]-1),1,unlist(rbind(mapply(rep,0,diff(d)-1),1))) 

Answer 1

Je pense que cela devrait faire la même chose

d <- c(3,5,9,12,15); 
x <- integer(max(d)) # initialize integer vector where all entries are zero; 
         # length(x) = max(d) (or last element of d) 
x[d] <- 1L    # set x to 1 at the position of each occurence