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