# NOT RUN {
# simulate random curdling
(random_curdling <- nlm_curds(curds = c(0.5, 0.3, 0.6),
recursion_steps = c(32, 6, 2)))
# simulate wheyed curdling
(wheyed_curdling <- nlm_curds(curds = c(0.5, 0.3, 0.6),
recursion_steps = c(32, 6, 2),
wheyes = c(0.1, 0.05, 0.2)))
# }
# NOT RUN {
# Visualize the NLMs
landscapetools::show_landscape(random_curdling)
landscapetools::show_landscape(wheyed_curdling)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab