# NOT RUN {
# load North America boundary and global isoscape
data("naMap")
data("d2h_world")
# load hydrogen isotope data for human hair in North America
d = subOrigData(taxon = "Homo sapiens",
reference = "Ehleringer et al. 2008", mask = naMap)
# rescale from environmental isoscape to tissue isoscape
r = calRaster(known = d, isoscape = d2h_world, mask = naMap)
# sample to assign
id = "smile"
d2H = -80
un = data.frame(id, d2H)
# posterior probability surface
asn = pdRaster(r, unknown = un, mask = naMap)
# }
Run the code above in your browser using DataLab