Вычисление количества недель между двумя датами, указанными для конкретного года, в R

Question

У меня есть некоторые данные из нескольких столбцов, первые два из них:

begin_date end_date
2012-03-24 2012-04-10
2012-11-14 2013-01-10
2012-07-15 2013-07-15
2013-01-24 2013-07-30

Я хочу рассчитать количество недель в 2013 году в течение этих двух дат для каждой строки, а затем округлить при необходимости.

Например, первая строка, очевидно, приведет к 0.

Вторая строка приведет к 2 неделям, а 10 дней округляются до 2 недель.etc

Вот пример кода:

x <- data.frame(start_date=factor(c("2012-03-24", "2012-11-14", "2012-07-15", "2013-01-24")), 
                end_date=factor(c("2012-04-10", "2013-01-10", "2013-07-15", "2013-07-30")))
x$start_date <-as.Date(x$start_date)
x$end_date <- as.Date(x$end_date)

Answer 1

  survey <- data.frame(date=c("2012-03-24","2012-04-10"),tx_start=c("2012-11-14","2013-01-10"))

survey$date_diff <- as.Date(as.character(survey$date), format="%Y/%m/%d")-
                  as.Date(as.character(survey$tx_start), format="%Y/%m/%d")
survey