con<-url("http://datayyy.com/data_R/tradingDaysMonthly.RData")
load(con)
close(con)

length(.tradingDaysMonthly)
head(.tradingDaysMonthly)

tail(.tradingDaysMonthly)


con<-url("http://datayyy.com/data_R/tradingDaysDaily.RData")
load(con)
close(con)

length(.tradingDaysDaily)
head(.tradingDaysDaily)

tail(.tradingDaysDaily)