R/EstimateV.3PG.r

EstimateV.3PG <-
function (N, Ww) 
{
    k <- 2.3415 + 0.1049 * N/1000
    a <- 0.9378 - 0.00438 * N/1000
    V <- k * Ww^a
    return(V)
}
drGeorgeXenakis/fr3PGD documentation built on June 3, 2020, 6:10 a.m.