Wie definieren Sie Urlaub für ist.Urlaub() chron-Paket in R

Ich versuche zu verwenden chron's is.holiday() Funktion, aber ich habe Mühe, es zu arbeiten. Die Dokumentation sagt, zum ändern der .Holiday Objekt mit den Ferien, die Sie verwenden möchten, aber die änderungen, die ich vorgenommen habe .Holiday scheinen nicht erkannt zu werden von is.holiday(). Könnte jemand ein Beispiel geben, der geeignete Weg, um Last holidays?

InformationsquelleAutor matt_k | 2011-09-16

9

Dies ist nicht-trivial und wohl verdient bezeichnet werden, die chron Betreuer als Fehler.
```
library(chron)
library(timeDate)
hlist <- c("CAVictoriaDay","CACanadaDay","CALabourDay")
(ss <- dates(sapply(sapply(hlist,holiday,year=2011),as.Date)))
.Holidays <- ss
```
(Jemand, der wirklich funktioniert mit Daten in R oft mehr, als ich tun, hat wahrscheinlich eine elegantere Lösung für die vorhergehenden Sachen, ohne dass ein Doppel-sapply Sache ...)

Aber das ändert nicht das wichtigste, das ist die version von Holidays in der chron namespace:
```
chron::.Holidays  ## no change
```
Der Hinweis ist hier: Override eine Funktion, die importiert werden, die in einem namespace

Namespace magic:
```
unlockBinding(".Holidays", as.environment("package:chron"))
assignInNamespace(".Holidays", .Holidays, ns="chron", 
    envir=as.environment("package:chron"))
assign(".Holidays", .Holidays, as.environment("package:chron"))
lockBinding(".Holidays", as.environment("package:chron"))
```
Schauen Sie jetzt, und es hat funktioniert:
```
chron::.Holidays
```
Testen Sie es aus:
```
yrvec <- seq.Date(as.Date("2011-01-01"),
                    as.Date("2011-12-31"),by="day")
plot(is.holiday(yrvec),axes=FALSE)
axis.Date(side=1,yrvec)
```
- Danke. Das war deutlich komplizierter, als ich erwartet hatte.
- Die Lösung oben ist fantastisch, und funktioniert, mit der Ausnahme, dass es anscheinend zu einem Fehler, wenn hlist umfasst "GBNewYearsEve" ich habe angefangen eine neue Frage auf, die [link] - (stackoverflow.com/questions/26777282/...)
InformationsquelleAutor Ben Bolker

War ich versucht, das gleiche zu tun und fand diesen älteren post. Brauchte ich nicht zu ändern .Holidays:

library(timeDate);library(chron)
hlist <- c("USChristmasDay","USGoodFriday","USIndependenceDay","USLaborDay",
    "USNewYearsDay","USThanksgivingDay")        
myholidays  <- dates(as.character(holiday(2000:2013,hlist)),format="Y-M-D")

> is.holiday(as.Date("2013-11-28"),myholidays)

[1] TRUE

> chron::.Holidays
  New Years Day     Memorial Day Independence Day        Labor Day     Thanksgiving        Christmas 
    01/01/92         05/25/92         07/04/92         09/07/92         11/26/92         12/25/92

InformationsquelleAutor ideamotor

Nach der Suche eine Menge über dieses Thema, ich fand diese Lösung besonders einfach mit dem Paket RQuantLib, also vielleicht RQuantLib könnte auch einfacher sein in dieser Hinsicht.

install.packages("RQuantLib")
library(RQuantLib)
isBusinessDay(calendar="WeekendsOnly", dates=yourdatesofinterest)

Können Sie diesen code ändern mit verschiedenen Kalender hinzufügen zu den Wochenenden verschiedene Sätze von Feiertagen in den verschiedenen Ländern (unten nur ein Beispiel, aber Sie haben viele mehr).

isBusinessDay(calendar="UnitedStates", dates=yourdatesofinterest)
isBusinessDay(calendar="UnitedStates/Settlement", dates=yourdatesofinterest)
isBusinessDay(calendar="UnitedStates/NYSE", dates=yourdatesofinterest)
isBusinessDay(calendar="Sweden", dates=yourdatesofinterest)
isBusinessDay(calendar="Mexico", dates=yourdatesofinterest)

Ich hoffe, es hilft jemandem

InformationsquelleAutor Ivan

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.