R : 발생 시간 -> 바이너리 시퀀스?

Question

발생하지 않는 seq의 발생 시간을 0-1 seq로 변환하는 더 좋은 옵션은 무엇입니까? 감사.

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

나는이 같은

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