R/rsq.R

In spencerwoody/possum: Model interpretation using using lower-dimensional posterior summarization

##' .. content for description{} (no empty lines) ..
##'
##' .. content for details{} ..
##' @title Rsquared
##' @return
##' @author Spencer Woody
##'
rsq <- function(y, yhat) {
  ssr <- sum((y - yhat)^2)
  sst <- sum((y - mean(y))^2)
  1 - ssr / sst
}