# load data
data(simulation)
simulation=simulation[order(simulation$Survival),]
# convert the data into a datalist
datalist=list(z=simulation$Instrument,a=simulation$Treatment,
obs.t=simulation$Survival,delta=simulation$Status,
l=cbind(simulation$Covariate1,simulation$Covariate2))
# calculate ps
ps=Fps.IWKME(datalist)
# predetermined t0 and eta
t0=5
eta=c(1,2,3)
IWKME(eta, datalist, ps, t0, smooth=TRUE)
Run the code above in your browser using DataLab