R/summary.TrialLevelIT.R

In Surrogate: Evaluation of Surrogate Endpoints in Clinical Trials

summary.TrialLevelIT <- function(object, ..., Object){
  
  if (missing(Object)){Object <- object} 
  cat("\nFunction call:\n\n")
  print(Object$Call)
  cat("\n\n# Data summary and descriptives")
  cat("\n#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~")
  cat("\nTotal number of trials: ", Object$N.Trial)
  
  cat("\n\n\n# Trial-level results (information theory-based")
  cat("\n#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~")
  cat("\n")
  print(format(round(Object$R2.ht, 4), nsmall = 4))
}