R/joint.like.R

joint.like <-
function(theta,  ys,  m0,ma,null = FALSE,const=1){
  #find the joint likelihood
  if(null) {
  ma<-m0
  }
    l=likelihoodpercond(theta, mu=ma, ys=ys,const)
  prod(l)
}
lunge111/intSEQ documentation built on May 20, 2019, 9:38 a.m.