Nothing
# based on Erickson & Tumanova (2000)
DME <- function(juv_proxy, adu_proxy, adu_mass, scale_fac = 3) {
j.scale <- juv_proxy^scale_fac
a.scale <- adu_proxy^scale_fac
j.prop <- j.scale/a.scale
j.mass <- adu_mass*j.prop
return(j.mass)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.