model <-
initialise_model(
backbone = backbone_bifurcating()
)
# \dontshow{
# actually use a smaller example
# to reduce execution time during
# testing of the examples
model <- initialise_model(
backbone = model$backbone,
num_cells = 5,
num_targets = 0,
num_hks = 0,
gold_standard_params = gold_standard_default(census_interval = 1, tau = 0.1),
simulation_params = simulation_default(
burn_time = 10,
total_time = 10,
census_interval = 1,
ssa_algorithm = ssa_etl(tau = 0.1),
experiment_params = simulation_type_wild_type(num_simulations = 1)
)
)
# }
# \donttest{
# generate dataset and output as a list format
# please note other output formats exist: "dyno", "sce", "seurat", "anndata"
out <- generate_dataset(model, format = "list")
model <- out$model
dataset <- out$dataset
# }
Run the code above in your browser using DataLab