HI Fares,
date1<-
seq.Date(as.Date("1jan2003",format="%d%b%Y"),as.Date("1jan2013",format="%d%b%Y"),by="day")
length(date1)
#[1] 3654F
set.seed(51)
donation<-sample(1000:3000000,3654,replace=FALSE)
dat1<-data.frame(date1,donation)
library(chron)
nrow(dat1[is.weekend(dat1[,1]),])
#[1] 1044
set.seed(15)
dat1[,2][is.weekend(dat1[,1])]<-sample(1:500,1044,replace=TRUE)
dat2<-dat1
library(timeDate) #Not sure these are the only Canadian holidays, but the
package says so
listHolidays("CA")
#[1] "CACanadaDay" "CACivicProvincialHoliday"
#[3] "CALabourDay" "CAThanksgivingDay"
#[5] "CAVictoriaDay"
dat1$HolidayCA<-NA
HolidayCA<-sort(as.Date(c(CACanadaDay(2003:2012),CACivicProvincialHoliday(2003:2012),CALabourDay(2003:2012),CAThanksgivingDay(2003:2012),CAVictoriaDay(2003:2012))))
dat1[,3][dat1[,1]%in%HolidayCA]<-"HolidayCA"
dat1[180:185,]
# date1 donation HolidayCA
#180 2003-06-29 358 <NA>
#181 2003-06-30 2895407 <NA>
#182 2003-07-01 1619049 HolidayCA
#183 2003-07-02 1391688 <NA>
#184 2003-07-03 422074 <NA>
#185 2003-07-04 1481923 <NA>
#or
HolidaysCA<-data.frame(date1=as.Date(c(CACanadaDay(2003:2012),CACivicProvincialHoliday(2003:2012),CALabourDay(2003:2012),CAThanksgivingDay(2003:2012),CAVictoriaDay(2003:2012))),Holiday=rep(c("CACanadaDAy","CACivicProvincialHoliday","CALabourDay","CAThanksgivingDay","CAVictoriaDAy"),each=10))
HolidaysCA<-HolidaysCA[order(HolidaysCA[,1]),]
row.names(HolidaysCA)<-1:nrow(HolidaysCA)
library(plyr)
res<-join(dat2,HolidaysCA,by="date1")
res[180:185,]
# date1 donation Holiday
#180 2003-06-29 358 <NA>
#181 2003-06-30 2895407 <NA>
#182 2003-07-01 1619049 CACanadaDAy
#183 2003-07-02 1391688 <NA>
#184 2003-07-03 422074 <NA>
#185 2003-07-04 1481923 <NA>
A.K.
________________________________
From: Fares Said <frespi...@hotmail.com>
To: arun <smartpink...@yahoo.com>
Sent: Saturday, January 5, 2013 8:23 AM
Subject: Holiday in Canada
Hi A.k,
I need one more favor from you,
How can I determine the canadian holidays the the data I created using your
code to generate.
Thanks
______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
