# NOT RUN {
ID=pfSiteSel(continent="North America", l12==1, long>-85)
TR=pfTransform(ID,method=c("MinMax","Box-Cox","Z-Score"),BasePeriod=c(200,4000))
p=pfGridding(TR,age=1000)
plot(p,empty_space=100)
# require(ggplot2)
# pp=plot(p,empty_space=100)
# pp+ggtitle("my title..")
# }
Run the code above in your browser using DataLab