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