R/voidratio.r

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)
}

Try the soilphysics package in your browser

Any scripts or data that you put into this service are public.

soilphysics documentation built on June 7, 2022, 5:06 p.m.