data(vaccine.trial)
ans<-with(vaccine.trial,
sensitivityGBH(z=treatment,s=hiv.outcome,y=logVL,
beta=c(0,.25,.5,.75,1,1.25,1.5),
selection="infected",
groupings=c("placebo","vaccine"),
empty.principal.stratum=c("not infected","infected"),
N.boot=100)
)
ans
ans<-with(vaccine.trial,
sensitivityGBH(z=treatment,s=hiv.outcome,y=logVL,
beta=c(-Inf,-1,-0.75,-0.5,-0.25,0,.25,.5,.75,1,Inf),
selection="infected",
groupings=c("placebo","vaccine"),
empty.principal.stratum=c("not infected","infected"),
ci.method="bootstrap",
N.boot=100)
)
ans
Run the code above in your browser using DataLab