add_pbd_output: Adds a pbd_sim result to a file

In richelbilderbeek/wiritttes: WIRITTE simulation

Description

Adds a pbd_sim result to a file

Usage

add_pbd_output(filename)

Arguments

filename

Parameter filename

Value

Nothing, modifies the parameter file

Author(s)

Richel Bilderbeek

Examples

  # Create a parameter file
  filename <- "add_pbd_output_example.RDa"
  save_parameters_to_file(
    rng_seed = 42,
    sirg = 0.5,
    siri = 0.5,
    scr = 0.5,
    erg = 0.5,
    eri = 0.5,
    age = 5,
    mutation_rate = 0.1,
    n_alignments = 1,
    sequence_length = 10,
    nspp = 10,
    n_beast_runs = 1,
    filename = filename
  )

  # File does not have an incipient species tree yet
  testit::assert(
    !ribir::is_pbd_sim_output(
      wiritttes::get_pbd_output(
        wiritttes::read_file(filename)
      )
    )
  )

  # Add an incipient species tree
  add_pbd_output(filename)

  # File does have an incipient species tree now
  testit::assert(
    ribir::is_pbd_sim_output(
      wiritttes::get_pbd_output(
        wiritttes::read_file(filename)
      )
    )
  )

  # Cleanup
  file.remove(filename)

richelbilderbeek/wiritttes documentation built on May 27, 2019, 8:14 a.m.