# Setup parameters to generate the data
set.seed(1)
censoring.rate <- 40
p <- 2
n <- 2000
m <- 4
tval <- seq(0,80,by=5)
tval0 <- c(0,20,30,40,50)
z.use <- c(0,1)
w.use <- seq(35,55,by=1)
simu.setting <- "2A"
covariate.dependent <- TRUE
run.NPMLEs <- TRUE
run.NPNA <- TRUE
run.OLS <- FALSE
run.WLS <- FALSE
run.EFF <- FALSE
run.NPNA_avg <- FALSE
## compute the finite set of mixture proportions
qvs <- qvs.values(p,m)
## generate the data
data.gen <- GenerateData(n,p,m,qvs,censoring.rate,simu.setting,covariate.dependent)
x <- data.gen$x
delta <- data.gen$delta
q <- data.gen$q
ww <- data.gen$ww
zz <- data.gen$zz
## true group membership (needed to compute the AUC/BS for simulated data
true.groups <- data.gen$true.groups
## Perform the estimation
estimators.out <- landmix.estimator(n,m,p,qvs,q,
x,delta,ww,zz,
run.NPNA,
run.NPNA_avg,
tval,tval0,
z.use,w.use)
Run the code above in your browser using DataLab