data(gf)
sampling_parameters <- list(min_mu = 50., max_mu = 5e3,
min_cv = 0.05, max_cv = 0.35,
degradation_shape1 = 10, degradation_shape2 = 1)
model_no_stutter <- sample_gamma_model(number_of_contributors = 2,
sampling_parameters = sampling_parameters,
model_settings = gf$gamma_settings_no_stutter)
model_no_stutter$parameters
Run the code above in your browser using DataLab