dtm <- mc_volc()
destin <- mc_destin_loc()
surf <- mc_surface(dtm, funct = "t", move = 8)
al <- mc_alloc(surf, origin = destin)
plot(al) # allocation zones
plot(al, isolines = TRUE) # with cost isolines overlaid
Run the code above in your browser using DataLab