R/ll.jRCI.b1.A1.R

Defines functions `ll.jRCI.b1.A1`

`ll.jRCI.b1.A1` = 
function(par, yi, ind.lst, X, ni, ni0, xs, iphi, theta)
{
  seq = 1:2
  logL = ll.tRCI.A(par0=c(par[seq], 0, par[-seq]), yi=yi, ind.lst=ind.lst, X=X, twosex=FALSE, iphi=iphi)
  logL = logL + ll.aRC(par0=c(par[2], 0), ni, ni0, xs, theta)

  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.