Nothing
TrioScattorPlot <-
function(data1,data2,data3,cutoff,xlab=c("Marker"),ylab=c("Time to Event"),main="Scattor Plot",ylim=c(0,3600),xlim=c(0,100),
col1="red",col2="blue",col3="black",col4="tomato",lwd=2,pch1=20,pch2=21,legendloc="bottomright",legendtxt=c("death - group1","censor - group1","death - group2","censor - group2","death - group3","censor-group3"),ncol=1)
{ plot(data1$marker[which(data1$censor==1)],data1$event[which(data1$censor==1)],xlab=xlab,ylab=ylab,main=main,ylim=ylim,xlim=xlim,col=col1,pch=pch1)
points(data1$marker[which(data1$censor==0)],data1$event[which(data1$censor==0)],col=col1,pch=pch2,lwd=lwd)
points(data2$marker[which(data2$censor==1)],data2$event[which(data2$censor==1)],xlab=xlab,ylab=ylab,main=main,ylim=ylim,xlim=xlim,col=col2,pch=pch1)
points(data2$marker[which(data2$censor==0)],data2$event[which(data2$censor==0)],col=col2,pch=pch2,lwd=lwd)
points(data3$marker[which(data3$censor==1)],data3$event[which(data3$censor==1)],xlab=xlab,ylab=ylab,main=main,ylim=ylim,xlim=xlim,col=col3,pch=pch1)
points(data3$marker[which(data3$censor==0)],data3$event[which(data3$censor==0)],col=col3,pch=pch2,lwd=lwd)
legend(legendloc,legendtxt,col=c(col1,col1,col2,col2,col3,col3),ncol=ncol,bty="n",cex=0.8,pch=c(pch1,pch2,pch1,pch2,pch1,pch2))
abline(h=c(cutoff),lty=3,col=col3,lwd=lwd) }
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.