tests/testthat/helper-rmse_DO.R

In USGS-R/streamMetabolizer: Models for Estimating Aquatic Photosynthesis and Respiration

#' Calculate the RMSE of DO predictions relative to observations
#' 
#' @param DO_preds predictions from predict_DO()
rmse_DO <- function(DO_preds) {
  sqrt(mean((DO_preds$DO.obs - DO_preds$DO.mod)^2, na.rm=TRUE))
}