ID=pfSiteSel(id_region=="ENA0", l12==1, long>-85)
TR=pfTransform(ID,method=c("MinMax","Box-Cox","Z-Score"),BasePeriod=c(200,4000))
p=pfGridding(TR,age=1000)
summary(p)
## Not run:
# require(raster)
# plot(p$raster)
#
# ## Example of other_mask usage: we will use here Dyke 2003 ice extent map for North
# America
# require(maptools)
# ID=pfSiteSel(id_region=="ENA0", long>-100,lat>40)
# TR=pfTransform(ID,method=c("MinMax","Box-Cox","Z-Score"),BasePeriod=c(200,4000))
#
# ## Define projection (same as Dyke 2003)
# proj4="+proj=lcc +lat_1=49 +lat_2=77 +lat_0=49
# +lon_0=-95 +x_0=0 +y_0=0 +ellps=clrk66 +datum=NAD27 +units=m +no_defs"
#
# ## Download the shapefile
# where=getwd()
# download.file("http://blarquez.com/public/data/ice_9500_calBP_lcc.shp",
# paste0(where,"/ice_9500_calBP_lcc.shp"))
# download.file("http://blarquez.com/public/data/ice_9500_calBP_lcc.dbf",
# paste0(where,"/ice_9500_calBP_lcc.dbf"))
# download.file("http://blarquez.com/public/data/ice_9500_calBP_lcc.shx",
# paste0(where,"/ice_9500_calBP_lcc.shx"))
#
# ice_shp=readShapePoly(paste0(where,"/ice_9500_calBP_lcc.shp"),
# proj4string=CRS(proj4))
# plot(ice_shp)
#
# p=pfGridding(TR,age=9500,cell_size=100000,distance_buffer=300000,
# proj4=proj4,other_mask=ice_shp)
# plot(p,add=ice_shp)
#
# # Citation: Dyke, A.S., Moore, A. And Robertson, L. 2003 :
# # Deglaciation of North America, Geological Survey of Canada Open File 1574.
# ## End(Not run)
Run the code above in your browser using DataLab