R/pst.X.2S.r

Defines functions pst.X.2S

pst.X.2S  = function(par, dist, S, d, L, R){
  q = rep(NA, length(d))
  q[d==1] = r.trdist(par[d==1,, drop=F], a = L[d==1], b = R[d==1], dist)
  q[d==2] = r.trdist(par[d==2,, drop=F], a = L[d==2], b = R[d==2], dist)
  return(q)
}

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.