R/P_vobs2.r

Defines functions P_vobs2

P_vobs2 = function(Vobs, kappa, r){
  m = sapply(Vobs, length)-1
  cens =  sapply(Vobs, function(x) is.infinite(x[length(x)]))
  p.vec = geom(m+r, kappa)
  p.vec.inf = geom.inf(m+r, kappa)
  ifelse(cens, p.vec.inf, p.vec)
}

Try the BayesPIM package in your browser

Any scripts or data that you put into this service are public.

BayesPIM documentation built on April 12, 2025, 1:59 a.m.