R/sample_a_b_y.R

Defines functions sample_a_b_y

sample_a_b_y <- function(m, m_i, childrenCount, childrenCountSpp, ...){
  # TODO: why sample with replacement?
  m_i <- table(sample(names(childrenCount), m, replace = TRUE))

  return(m_i)
}
franciscolobo/TaxonSampling documentation built on Dec. 31, 2021, 12:04 a.m.