Re-use genotype probabilities — reuse_genotype

p <- c(0.2, 0.7, 0.1) to012(sample_profiles_without_error(n = 2, p = p))

Usage

reuse_genotype_probs(p, n)

p_10loci <- reuse_genotype_probs(p, 10) to012(sample_profiles_without_error(n = 2, p = p_10loci))