# \donttest{
data(amph_trem)
N = 10 #for the example, we recommend 1e+4 value
n = 8
TAM <- trimHS_maxC(N, am_matrix, n, check.unique = TRUE)
PACO <- paco_ss(TAM, amphipod, trematode, symmetric = TRUE,
ei.correct = "sqrt.D", strat = "parallel", cl = 8)
LFPACO <- link_freq(TAM, PACO, am_matrix, percentile = 0.01,
below.p = TRUE, res.fq = TRUE)
# }
Run the code above in your browser using DataLab