R/print.goodnessfit.lba.ls.R

In ivanalaman/lba: Latent Budget Analysis for Compositional Data

print.goodnessfit.lba.ls <- function(x,
				     digits=3L,
				     ...){

  cat("Residual sum of square:\n")

  res <- c(x$RSS1,
	   x$RSS)
  names(res) <- c("RSS baseline",
		  "RSS K budget")
  print.default(res,
		digits=digits,
		...)

  cat("\n")
}