check_empty_beautier_folder()
# No MRCA prior
inference_model <- create_inference_model(
mrca_prior = NA
)
has_mrca_prior(inference_model) # Returns FALSE
# A default MRCA prior
inference_model <- create_inference_model(
mrca_prior = create_mrca_prior()
)
has_mrca_prior(inference_model) # Returns TRUE
check_empty_beautier_folder()
Run the code above in your browser using DataLab