R/evaluation.R

In anadiedrichs/frost: Prediction of Minimum Temperature for Frost Forecasting in Agriculture

# RMSE root mean squared error
rmse <- function(error)
{
  sqrt(mean(error^2))
}
# coefficient of correlation, also known as r squared value
rsquared <- function(a,b)
{
  (var(a)-(var(a)-var(b))) / var(a)
}