mcap_2d <- mesh_to_2d(mcap)
plot(mcap_2d)
perimeter(mcap_2d)
r <- 1 # radius
circ <- sim_circle(r=r) # simulate xy coordinates for a circle of radius 1
plot(circ, asp=1)
perimeter(circ)
2 * pi * r # Note xy resolution affects output
Run the code above in your browser using DataLab