Nothing
############################
#### 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())
}
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.