dtm <- mc_volc()
start <- mc_volc_loc()
surf <- mc_surface(dtm, funct = "t", move = 8)
acc <- mc_accum(surf, origin = start, breaks = 0.05)
# \donttest{
plot(acc) # raster + isolines
plot(acc, type = "contour") # isolines only
# }
Run the code above in your browser using DataLab