state.public.holidays <- public.holidays[public.holidays$Applicable.To %in% c(state,"NAT"),]
state.public.holidays$Date<-as.Date(state.public.holidays$Date,"%Y%m%d")
state.public.holidays <- public.holidays[public.holidays$Applicable.To %in% c(state,"NAT"),]
state.public.holidays$Date<-as.Date(state.public.holidays$Date,"%Y%m%d")