con<-url("http://canisius.edu/~yany/RData/tradingDaysMonthly.RData")
load(con)
close(con)

length(.tradingDaysMonthly)
head(.tradingDaysMonthly)

tail(.tradingDaysMonthly)


con<-url("http://canisius.edu/~yany/RData/tradingDaysDaily.RData")
load(con)
close(con)

length(.tradingDaysDaily)
head(.tradingDaysDaily)

tail(.tradingDaysDaily)

