R/summary.YPmodel.adlgrk.R

In junlongsun/YPmodel: The Short-Term and Long-Term Hazard Ratio Model for Survival Data

summary.YPmodel.adlgrk <-
function(object=c(), ...)
{
	Adlgrk <- object

	pval <- Adlgrk$pval

	cat("-------------------------------------------------------------------------------------------------------------  \n")
	cat("\nImproved Logrank-Type Tests (p-value):\n")
	cat(paste(round(pval,digits = 4)),"\n")

}