сравнить временные интервалы в R

Question

Допустит, у меня есть dataframe, состоящий из 3-х колонка с датами:

index <- c("31.10.2012", "16.06.2012") 
begin <- c("22.10.2012", "29.05.2012") 
end <- c("24.10.2012", "17.06.2012") 

index.new <- as.Date(index, format = "%d.%m.%Y") 
begin.new <- as.Date(begin, format = "%d.%m.%Y") 
end.new <- as.Date(end, format = "%d.%m.%Y") 

data.frame(index.new, begin.new, end.new) 

Моей проблема: Я хочу, чтобы выбрать (подмножество) строку, где интервал начало и конец дата в течение 4 дней до индексного дня. Это, очевидно, только в строке № 2.

Можете ли вы помочь мне здесь?

Answer 1

Ваш способ выразить проблему грязный, в первом случае dates.new[1]>dates.new[2] и во втором случае dates.new[3]<dates.new[4]. Создание вещей собственно:

interval1 = c(dates.new[2], dates.new[1]) 
interval2 = c(dates.new[3],dates.new[4]) 

Если вы хотите проверить interval2 СОДЕРЖИТ interval1:

all.equal(findInterval(interval1, interval2),c(1,1)) 

Answer 2

Отвод дайте мне знать, если это работает, и если это то, что вы хотите

library("timeDate") 

index <- c("31.10.2012", "16.06.2012") 
begin <- c("22.10.2012", "29.05.2012") 
end <- c("24.10.2012", "17.06.2012") 

index.new <- as.Date(index, format = "%d.%m.%Y") 
begin.new <- as.Date(begin, format = "%d.%m.%Y") 
end.new <- as.Date(end, format = "%d.%m.%Y") 

data <- data.frame(index.new, begin.new, end.new) 

apply(data, 1, function(x){paste(x[1]) %in% paste(timeSequence(x[2], x[3], by = "day"))})