R/myffitYP411.R

In ELYP: Empirical Likelihood Analysis for the Cox Model and Yang-Prentice (2005) Model

Defines functions myffitYP411

Documented in myffitYP411

myffitYP411 <- function(x1, myY, myd, myZ, beta2) {
         tempT <- fitYP41(Y=myY, d=myd, Z=myZ, beta1=x1, beta2=beta2)
         return( - tempT$EmpLik)
}

Try the ELYP package in your browser