library(xtable); data.all <- get.data();
\clearpage
Variables | Values
------------------|--------------------------
Number of doses | r data.all$ndose
decision cuts | r data.all$dec.cut[1:3]
etas | r data.all$etas[1:2]
probability model | r data.all$probmdl
cohort size | r data.all$size.cohort
level size | r data.all$size.level
n rep | r data.all$n.rep
n core | r data.all$n.cores
\clearpage
Probability of DLT risk and immune response:
if (!is.null(data.all$sm)) { plot(data.all$sm, draw.curves = 1:2, bg = 'transparent') } else { "No scenario plot was generated from this session." };
\clearpage
Probability of each scenario:
if (!is.null(data.all$sm)) { plot(data.all$sm, draw.curves = 3:6, bg = 'transparent') } else { "No scenario plot was generated from this session." };
\clearpage
if (!is.null(data.all$rst)) { for (i in 1:length(summary(data.all$rst))) { print(xtable(summary(data.all$rst)[[i]]), comment = FALSE) } } else { "No simulation result was generated from this session." }
\clearpage
vtTrack Plots
if(!is.null(data.all$om)) { vtTrack(data.all$om, end.width = 0.8, max.level = data.all$currentLevel) print(xtable(data.all$om, digits = 0), comment=FALSE, include.rownames=FALSE); } else { "No observation plot was generated from this session." }
\clearpage
par(pin=c(3,3)); if(!is.null(data.all$om)) { for (i in 1:data.all$ndose) { cur.obs.y <- data.all$om[i, -1]; if (1 == i) { prev.obs.y <- NULL; prev.res <- 0; } else { prev.obs.y <- p.data$om[i-1,-1]; prev.res <- NULL; } cat(paste("\nLevel", i)) plot(vtInterim(cur.obs.y, prev.obs.y = prev.obs.y, prev.res = prev.res, dec.cut = data.all$dec.cut[1:3], etas = data.all$etas[1:2])); } } else { "No observation plot was generated from this session." }
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.