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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.