R/proc_tom2.R

In vanichols/PFIweeds2020: Provides Easy Access to 2020 PFI Weed Seedbank Project Data

#' pfifun_seedstom2conv
#'
#' @param totseeds Number of seeds found in a plot
#'
#' @return Seeds per plot converted to seeds per m2 assuming 20 cores per plot
#' @export


pfifun_seedstom2conv <- function(totseeds){

tom2conv <- 1 / (((pi * 2.8575^2) * 20 ) / 10000 )

totseedsm2 <- totseeds * tom2conv

return(totseedsm2)
}