data(mscdata)
dat1 <- mksub(mscdata,id=2100630)
dat2 <- mksub(mscdata,id=1108447)
plot.year(dat1)
plot.year(dat2)
newdata <- dathomog(dat1,dat2)
plot.year(newdata)
message("This is a rather poor example, since the two stations are")
message("nowhere near each other")
Run the code above in your browser using DataLab