Nothing
plot.TrialLevelMA <-
function(x, Weighted=TRUE, Xlab.Trial, Ylab.Trial, Main.Trial,
Par=par(oma=c(0, 0, 0, 0), mar=c(5.1, 4.1, 4.1, 2.1)),...) {
Object <- x
if (missing(Xlab.Trial)) {Xlab.Trial <- expression(paste("Treatment effect on the surrogate endpoint ", (alpha[i])))}
if (missing(Ylab.Trial)) {Ylab.Trial <- expression(paste("Treatment effect on the true endpoint ",(beta[i])))}
if (missing(Main.Trial)) {Main.Trial <- c("Trial-level surrogacy")}
dev.new()
par=Par
if (Weighted==TRUE){
plot(Object$Alpha.Vector, Object$Beta.Vector, cex=(Object$N.Vector/max(Object$N.Vector))*8, xlab=Xlab.Trial, ylab=Ylab.Trial, main=Main.Trial,...)
abline(lm(Object$Beta.Vector ~ Object$Alpha.Vector))}
if (Weighted==FALSE){
plot(Object$Alpha.Vector, Object$Beta.Vector, xlab=Xlab.Trial, ylab=Ylab.Trial, main=Main.Trial, ...)
abline(lm(Object$Beta.Vector ~ Object$Alpha.Vector))}
}
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.