рассчитать разницу между двумя датами и распечатать даты

Question

    st_day<-c(1,5,10)
endday<-c(4,9,15)
d<-c(1,2,3)
data<-cbind(st_day,endday,d)

days1<-c(1:15)
dose1<-rep(c(1,2,3),each=5)
result <- cbind(days1,dose1)

Здравствуйте, у меня есть 2 приема с датами начала и окончания, и соответствующая доза была назначена на определенный срок.Как можно вычислить разницу и распечатать продолжительность между этими двумя датами.Я дал пример кода ожидаемого результата.

Спасибо.

Answer 1

Мы можем использовать Map, чтобы получить соответствующую последовательность двух векторов в list, затем cbind unlist ted 'lst' и rep лицензированную 'd' (на основе lengths из 'lst'

lst <- Map(`:`, st_day, endday)
out <- cbind(unlist(lst), rep(d, lengths(lst)))