Nothing
plot.YPmodel <-
function(x, ...)
{
YPmodelResult <- x
Data <- YPmodelResult$Data
IntervalBands <- YPmodelResult$IntervalBands
LackFitTest <- YPmodelResult$LackFitTest
Estimate <- YPmodelResult$Estimate
par(mfrow=c(2,2))
plot.YPmodel.survivor(Estimate)
plot.YPmodel.IntervalBands(IntervalBands)
plot.YPmodel.survf(LackFitTest)
plot.YPmodel.martint(LackFitTest)
}
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.