R/myffitYP41.R

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

Defines functions myffitYP41

Documented in myffitYP41

myffitYP41 <- function(x, myY, myd, myZ) {
     x1 <- x[1]
     x2 <- x[2]
     tempT <- fitYP41(Y=myY, d=myd, Z=myZ, beta1=x1, beta2=x2)
     return( - tempT$EmpLik)
} 

Try the ELYP package in your browser