R/growth.R

growth <- function(lengths, wr = 90, wh = 10) {

  result <- (mean(lengths[[4]])*wr + mean(lengths[[3]])*wh)
  return(result)
}

Try the SeedCalc package in your browser

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

SeedCalc documentation built on May 2, 2019, 8:26 a.m.