Combine different plots into one.
basebind(..., legend.title, legend.labels, control = list())
... |
|
---|---|
legend.title | an optional character string to specify the legend title. |
legend.labels | an optional character string to specify the legend labels. |
data(simDat) fm <- Recur(t.stop, id, event, status) ~ x1 + x2 fit1 <- reReg(fm, subset = x1 == 0, data = simDat, B = 200) fit2 <- reReg(fm, subset = x1 == 1, data = simDat, B = 200) basebind(plot(fit1), plot(fit2))