Nothing
voidratio <-
function (wetsoil, drysoil, diam.cylinder, height.cylinder, dens.particle,
deformation)
{
area <- pi * (diam.cylinder/2)^2
aar <- height.cylinder - deformation
vra <- aar * area
drs <- drysoil/vra
ei <- dens.particle/drs - 1
return(ei)
}
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.