if (FALSE) {
var.cov <- c("sodium", "lvef", "any.vasodilator.use");
var.resp <- "y";
var.trt <- "trt";
var.censor <- "censor";
resptype <- "survival";
subgrp.effect <- bzGetSubgrp(solvd.sub,
var.resp = var.resp,
var.trt = var.trt,
var.cov = var.cov,
var.censor = var.censor,
resptype = resptype);
gs.pval <- bzGailSimon(subgrp.effect$Estimate,
subgrp.effect$Variance); }
Run the code above in your browser using DataLab