setwd(system.file('extdata/', package='climtrends'))
fm1<-read.delim('c_Casl_3.txt',sep='',header=FALSE)
fmRef <- read.delim('c_casl_O_3_REF.TXT',sep='',header=FALSE)
PlotSeriesAndRefSimple(fm1[,c(1,12)],fmRef[,c(1,12)])
Run the code above in your browser using DataLab