nberDates()
В пакете tis приведен список дат начала и окончания рецессии.Изменение nberDates() в временном ряду в R для подмножества
Каков самый маленький, самый короткий способ превратить это в набор манекенов для подмножества существующих временных рядов?
Таким образом, само по себе дает nberDates ...
> nberDates()
Start End
[1,] 18570701 18581231
[2,] 18601101 18610630
[3,] 18650501 18671231
[4,] 18690701 187
[5,] 18731101 18790331
[6,] 18820401 18850531
и str(nberDates())
говорит тип "Named num
."
У меня есть еще один объект времени серии в XTS, который в настоящее время выглядит следующим образом ...
> head(mydata)
value
1966-01-01 15
1967-01-01 16
1968-01-01 20
1969-01-01 21
1970-01-01 18
1971-01-01 12
Я хотел бы иметь вторую переменную, углубление, то есть 1 во время спадов:
> head(mydata)
value recess
1966-01-01 15 0
1967-01-01 16 0
1968-01-01 20 0
1969-01-01 21 0
1970-01-01 18 1
1971-01-01 12 0
(Моя цель состоит в том, что я хотел бы, чтобы иметь возможность сравнивать значения в спадах со значениями из спадов.)
неуклюжих, что я пытаюсь, что не работает это ...
((index(mydata) > as.Date(as.character(nberDates()[,1]),format="%Y%m%d")) & (index(mydata) < as.Date(as.character(nberDates()[,2]),format="%Y%m%d")))
Но это дает ...
[1] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
[13] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
[25] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
[37] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
Warning messages:
1: In `>.default`(index(mydata), as.Date(as.character(nberDates()[, :
longer object length is not a multiple of shorter object length
2: In `<.default`(index(mydata), as.Date(as.character(nberDates()[, :
longer object length is not a multiple of shorter object length
Я знаю, что я могу решить эту проблему с неуклюжим для цикла, но это всегда подсказывает мне, что я делаю неправильно R.
Любые предложения?
Это то, что я искал. Я все еще не думаю о «применении» функций, и каждый раз спрашиваю себя. Благодаря! – Mittenchops