lyr.depths <- function(sl.prof){ depth = sl.prof$layer$SLB depth = depth-c(0,depth[1:(length(depth)-1)]) return(depth) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.