Цикл по объекту Date или POSIXct приводит к числовому итератору.

?"for" говорит, что seq (часть после in) является "выражением [A]n, оценивающим вектор (включая список и выражение) или парный список или 'NULL'".

Таким образом, ваш вектор Date приводится к numeric, потому что объекты Date не являются строго векторами:

is.vector(Sys.Date())
# [1] FALSE
is.vector(as.numeric(Sys.Date()))
# [1] TRUE

То же верно и для POSIXct векторов:

is.vector(Sys.time())
# [1] FALSE
is.vector(as.numeric(Sys.time()))
# [1] TRUE

цикл через дни (строки):

     days <- seq(from=as.Date('2011-02-01'), to=as.Date("2011-03-02"),by='days' )
     for ( i in seq_along(days) )
     {
          print(i)
           print(days[i])
      }

Вы не выбираете правильную функцию для применения к Date векторам при использовании циклов for. Лучше было бы обернуть seq_along практически для каждой даты или фактора, которые зацикливаются. Затем вы сделаете две вещи: а) настройте его так, чтобы вы ожидали индекс, начинающийся с 1, и б) защитите от странных вещей, которые происходят с векторами нулевой длины. Я также думаю, что было бы лучше использовать его с факторами, которые циклы for превратят в векторы символов.

Что касается ответа Джошуа (который, безусловно, правильный и полезный), я думаю, что функция is.vector немного неправильно помечена или, возможно, просто неправильно понята. Его можно было бы точнее назвать hasNoAttributesOtherThanName. Свойство, которое большинство людей считает «векторным», проверяется с помощью is.atomic, а Date и POSIXct объекты возвращают TRUE из этого теста.

Кажется, что функция C, реализующая цикл for, не копирует ни один из атрибутов вектора. Это также включает атрибут class, который должен сделать i объектом Date.

Вы можете изучить исходный код функции do_for(SEXP, SEXP, SEXP, SEXP) (той, что вызывается R’s for) здесь .

Это старый вопрос, но я новичок в R и столкнулся с той же проблемой. Поскольку моя проблема будет обрабатываться параллельно, я использовал foreach и увидел, что поведение отличается от обычного for:

library(foreach)

start_date = as.Date("2013-08-1")
end_date = as.Date("2013-08-13")
days = seq(start_date, end_date, by = "day")

foreach(day = days, .combine='rbind') %dopar% {
  print(class(day))
}

[1] "Date"
[1] "Date"
[1] "Date"
[1] "Date"
...

Поскольку я не знаком с внутренними вещами большинства R, поэтому я не знаю, почему foreach в конечном итоге ведет себя иначе, но это сработало для моей цели и, надеюсь, может быть полезно для кого-то еще.

Любая числовая операция с объектами даты обычно возвращает количество дней. В этом вы просите его предоставить вам количество дней с эпохи. 14245 — количество дней с 01.01.1970 по 01.01.2009.

От ?Даты:

Даты представлены как количество дней с 1 января 1970 г. с отрицательными значениями для более ранних дат. Они всегда печатаются по правилам действующего григорианского календаря, хотя этот календарь давно не использовался (он был принят в 1752 году в Великобритании и ее колониях).

Предполагается, что дата должна быть целым числом, но это не обязательно во внутреннем представлении. Дробные дни будут игнорироваться при печати. Можно получить дробные дни с помощью метода среднего или путем добавления или вычитания (см. Ops.Date).

Попробуйте добавить print(day), чтобы понять, что я имею в виду.

test = as.Date("2009-01-01")
print( class( test ) )
for ( day in test )
{
  print(day)
  print( class( day ) )
}