examples/dsdive.tx.matrix.uniformized.R

In jmhewitt/dsdive: Discrete Space Models for Dive Trajectories of Animals

data('dive.sim')
attach(dive.sim)
attach(dive.sim$params)

r.unif = max(outer(lambda, 2 * depth.bins$halfwidth, '/'))

m = dsdive.tx.matrix.uniformized(depth.bins = depth.bins, beta = beta, 
                                 lambda = lambda, s0 = 2, 
                                 rate.uniformized = r.unif)

detach(dive.sim$params)
detach(dive.sim)