Nothing
print.YPmodel <-
function(x, ...)
{
YPmodelResult <- x
Data <- YPmodelResult$Data
Estimate <- YPmodelResult$Estimate
IntervalBands <- YPmodelResult$IntervalBands
LackFitTest <- YPmodelResult$LackFitTest
Adlgrk <- YPmodelResult$Adlgrk
cat("Details of model of Yang and Prentice \n")
summary.YPmodel.overall(object=Data)
summary.YPmodel.estimate(object=Estimate, interval=0)
summary.YPmodel.IntervalBands(IntervalBands)
summary.YPmodel.lackfittest(LackFitTest)
summary.YPmodel.adlgrk(Adlgrk)
cat("\n------------------------------------------------------------------------------------------------------------- \n")
plot.YPmodel(YPmodelResult)
}
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.