Подмножество зимы (Dez, Jan, Feb) из дневных временных рядов (зоопарк) - PullRequest
3 голосов
/ 15 июня 2011

У меня есть ежедневный зоопарк (xts) с данными за несколько десятилетий в следующем формате:

head(almorol)
1973-10-02 1973-10-03 1973-10-04 1973-10-05 1973-10-06 1973-10-07
     183.9      208.2      153.7       84.8       52.5       35.5

и я хотел бы построить только зимние данные (полные месяцы декабрь, январь и февраль). Я нашел подмножество для xts, поэтому подумал, что могу извлечь все Decembers, используя:

x<-apply.yearly(almorol, FUN=last(almorol, "1 month"))

и затем сделайте что-то подобное для января и февраля, но я получаю следующую ошибку:

Error in get(as.character(FUN), mode = "function", envir = envir) :
object 'FUN' of mode 'function' was not found

Я могу использовать apply.yearly и last(almorol, "1 month") по отдельности, но когда я объединяю их, это не работает. Кто-нибудь знает способ поднабора этих 3 месяцев временного ряда? Спасибо за помощь!

1 Ответ

6 голосов
/ 15 июня 2011

Попробуйте это:

z.winter <- z[months(time(z), TRUE) %in% c("Dec", "Jan", "Feb")]
plot(z.winter)
...