R/EstimateG.3PG.r

EstimateG.3PG <-
function (N, Wa) 
{
    k <- 0.6222 + 0.1719 * N/1000
    a <- 0.6987 - 0.0196 * N/1000
    G <- k * Wa^a
    return(G)
}
drGeorgeXenakis/fr3PGD documentation built on June 3, 2020, 6:10 a.m.