data(gf)
sampling_parameters <- list(min_template = 50., max_template = 1000.,
degradation_shape = 2.5, degradation_scale = 1e-3)
model_no_stutter <- sample_log_normal_model(number_of_contributors = 1,
sampling_parameters = sampling_parameters,
model_settings = gf$log_normal_settings)
Run the code above in your browser using DataLab