# Simulation parameters
pk <- rep(20, 4)
nu_between <- 0.1
# Estimating smallest nu_within
nu_within <- MinWithinProba(pk = pk, nu_between = nu_between)
# Expected metrics
ExpectedCommunities(
pk = pk,
nu_within = max(nu_within),
nu_between = nu_between
)
Run the code above in your browser using DataLab