dne <- dne(dkmodel$complex)
summary(dkmodel$complex)
#total DNE value corresponds to the sum of products Dne * Area:
round(sum(dne*Rvcg::vcgArea(dkmodel$complex, perface = TRUE)$pertriangle), 3)
#can be directly computed using \code{dne}:
dne(dkmodel$complex, total = TRUE)
#render on a map:
dkmap(dkmodel$complex, dne, legend.type = "log", col = "dne")
Run the code above in your browser using DataLab