# xgdcnCA008201000.dat is from ECA COLLEGEVILLE temperature
setwd(system.file('extdata/', package='climtrends'))
dailyCollegeville <- ReadGHCNymd('xgdcnCA008201000.dat')
MonthlyCollegeville <- MonthTrendYearsFuncFromDay(dailyCollegeville, mmonth=1)
MonthlyCollegeville[,1] <- as.Date(MonthlyCollegeville[,1], origin = "1970-01-01")
Run the code above in your browser using DataLab