Simulate one decay path through a taphonomic Markov chain

Draws a single realised trajectory from death through the transient stages until an absorbing fate is reached (or n_steps elapses).

Usage

morie_taphonomy_decay_simulate(
  chain,
  start = chain$transient[1],
  n_steps = 100L,
  seed = 42L
)

Arguments

chain

A chain from morie_taphonomy_decay_chain.

start

Starting transient stage (default the first).

n_steps

Maximum steps to simulate (default 100).

seed

RNG seed (default 42) for reproducibility.

Value

A character vector: the sequence of visited states, ending at an absorbing state if reached.

Examples

morie_taphonomy_decay_simulate(morie_taphonomy_decay_chain(0.7), seed = 1)
#> [1] "fresh"     "fresh"     "fresh"     "mummified"