R/getFits.r

Defines functions print.daFits getFits

Documented in getFits

#' Retrieve fit matrix or matrices
#'
#' Retrieve fit matrix or matrices for a given dominanceAnalysis object
#' @param da.object dominanceAnalysis object
#' @param fit.functions name of the fit indices to retrieve. If NULL, all fit indices will be retrieved
#' @return a list. Key corresponds to fit-index and the value is a matrix, with fits values
#' @export
#' @family retrieval methods
#' @examples
#' data(longley)
#' da.longley<-dominanceAnalysis(lm(Employed~.,longley))
#' getFits(da.longley)



getFits<-function(da.object, fit.functions=NULL) {
  checkDominanceAnalysis(da.object)
  if(is.null(fit.functions)) {
    fit.functions=da.object$fit.functions
  }
  out<-da.object$fits$fits[fit.functions]
  out<-lapply(out,function(xx) {
    colnames(xx)<-replaceTermsInString(colnames(xx),da.object$terms)
    rownames(xx)<-replaceTermsInString(rownames(xx),da.object$terms)
    xx
  })
  class(out)<-c("daFits","list")
  out
}

#' @keywords internal
#' @export
print.daFits<-function(x,...) {
  cat("\nDominance analysis fit matrices\n")
  for(fit in names(x)) {
    cat("* Fit index: ", fit,"\n")
    print(round(x[[fit]],3),na.print = "")
  }
  invisible(x)
}
clbustos/dominanceAnalysis documentation built on March 8, 2024, 5:22 a.m.