R/get_M.R

Defines functions get_M

get_M <-
function(x0, s, t) {
  if (s == 0) {
    return(1)
  } else {
    exp(-s * t)/(x0 + (1-x0)*exp(-s*t))^2
  }
}
benmarwick/signatselect documentation built on Dec. 4, 2019, 4:22 p.m.