# Create and cluster example assignment surfaces.
myiso <- rasterFromXYZ(isoscape)
myiso_sd <- rasterFromXYZ(isoscape_sd)
assignmentModels <- isotopeAssignmentModel(
ID = LETTERS[1:4],
isotopeValue = seq(-120,-25,length.out = 4),
SD_indv = rep(5,4),
precip_raster = myiso,
precip_SD_raster = myiso_sd,
nClusters = FALSE
)
raster::plot(assignmentModels)
# Project mean aggregate surfaces into space.
summaryMap <- projectSummaryMaxSurface(
surfaces = assignmentModels,
nClust = FALSE
)
raster::plot(summaryMap)
Run the code above in your browser using DataLab