R/SeedImbibition.R

In SeedImbibition: Seed Imbibition Percentage

Defines functions seed_imbib

Documented in seed_imbib

#' @export
seed_imbib <- function(wt_of_seed_after_imbib, initial_wt_of_seed){
  seed_imbib_percent = ((wt_of_seed_after_imbib - initial_wt_of_seed)/initial_wt_of_seed)*100
  return(seed_imbib_percent)
}

Try the SeedImbibition package in your browser