tmp <- fx.total(secrdemo.0)
plot(tmp, covariate = 'D.sum', col = terrain.colors(16),
plottype = 'shaded')
plot(tmp, covariate = 'D.sum', col = 'white', add = TRUE,
plottype = 'contour')
spotHeight(tmp, prefix = 'D.sum')
Run the code above in your browser using DataLab