set.seed(1)
xFast <- sim.GRW(ns = 20, ms = 0.5, vs = 0.2) # fast evolution
xSlow <- sim.Stasis(ns = 20, omega = 0) # strict stasis (zero rates)
lri.Fast <- LRI(xFast, draw = FALSE)
lri.Slow <- LRI(xSlow, draw = FALSE)
print(lri.Fast[3], 4)
print(lri.Slow[3], 4) # LRI thinks strict stasis rates are MUCH faster!
Run the code above in your browser using DataLab