R/utils.R

Defines functions RPT_r2

#' @export
#'
RPT_r2 <- function(model, adj=FALSE){
  if(adj) {
    out <- summary(model)$r.squared
  } else{
    out <- summary(model)$adj.r.squared
  }
  out
}
Blockhead-yj/report.iqz documentation built on March 18, 2022, 5:30 a.m.