Nothing
plot.resMexhaz <- function(x,conf.int=TRUE,lty.pe="solid",lty.ci="blank",col.ci="blue",alpha.col.ci=0.25,ylim=NULL,...){
lab <- c("Hazard Ratio","Risk Ratio","Survival Difference","Conditional Survival","Direct Adjusted Survival")[which(c("hr","rr","sd","cs","as")%in%x$type)]
if (x$multiobs){
stop("The 'plot.resMexhaz' function applies only to predictions realised on a single vector of covariates.")
}
time.pts <- x$results$time.pts
if (is.null(ylim)){
ylim <- range(x$results[!is.nan(x$results[,2]) & !is.infinite(x$results[,2]),2:4])
}
plot(time.pts,x$results[,2],type="l",xaxs="i",xlab="Time",ylab=lab,lty=lty.pe,ylim=ylim,...)
if (conf.int==TRUE){
polygon(c(time.pts,rev(time.pts)),c(x$results[,3],rev(x$results[,4])),col=rgb(t(col2rgb(col.ci))/255,alpha=alpha.col.ci),border=NA)
lines(time.pts,x$results[,2],lty=lty.pe,...)
lines(time.pts,x$results[,3],lty=lty.ci,...)
lines(time.pts,x$results[,4],lty=lty.ci,...)
}
}
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.