R/ll.jRCI.ase.b0.X.R

Defines functions `ll.jRCI.ase.b0.X`

`ll.jRCI.ase.b0.X` = 
function(par, yi, ind.lst, X, twosex, ni, ni0, xs, iphi, theta, l.tau.r, l.tau.a)
{ 
  if(twosex){
    seq = 1:2
    ind = 3
  }else{
    seq = 1
    ind = 2
  }
  logL = ll.aRC.X(par0=c(0, par[ind]), ni=ni, ni0=ni0, xs=xs, theta=theta, l.tau.r=l.tau.r)
  logL = logL + ll.tRCI.X(par0=c(par[seq], 0, par[-seq]), yi=yi, ind.lst=ind.lst, X=X, twosex=twosex, iphi=iphi, l.tau.r=l.tau.r, l.tau.a=l.tau.a)

  return(logL)
}

Try the rxSeq package in your browser

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

rxSeq documentation built on May 1, 2019, 11:31 p.m.