R/print.summary.dblm.r

In dbstats: Distance-Based Statistics

 
 ############################
 #### print.summary.dblm ####
 ############################

print.summary.dblm <-function(x,...){
 
 # print the call
 cat("\ncall:   ")
 x$call[[1]]<-as.name("dblm")
 print(x$call)

 # print the Weighted Residuals
 cat("\nWeighted Residuals:\n")
 print(format(summary(as.numeric(x$residuals)),digits=3),quote = FALSE)
 
 # print the stand.resid.error with rff degree of freedom
 cat(gettextf("\nResidual standard error: %f on %d degrees of freedom",
        x$sigma,x$df.residuals),"\n")
 
 # print R-squared and adjusted R-squared 
 cat(gettextf("R-squared: %f \t Adjusted R-squared: %f",
        x$r.squared,x$adj.r.squared),"\n") 

 # print geometric variability 
 cat(gettextf("Weighted Geometric Variability: %f",
        x$gvar),"\n\n")  
        
 # effective rank used
  if ((x$method)=="eff.rank"||(x$method)=="rel.gvar")
    cat(gettextf("Used effective rank = %i",x$eff.rank),"\n")
  else    
    cat(gettextf("Optimal effective rank = %i",x$eff.rank),"\n")
  
  # Relative geometric variability
  cat(gettextf("Relative geometric variability = %f",x$rel.gvar),"\n")
  
  # print the appropriate statistic according to the using method 
   if(!is.null(x$crit.value))
     cat(paste(x$method, "value criterion :", format(x$crit.value,scientific=TRUE)),"\n")
   
   cat("\n")
 return (invisible())
}