insample <- list(rmse_fe = 0.05, rmse_m = 0.04)
cv_res <- data.frame(
rmse_fe_all = c(0.06, 0.055, 0.058),
rmse_m_all = c(0.045, 0.042, 0.044)
)
degradation <- compute_oos_degradation(insample, cv_res)
print(degradation)
Run the code above in your browser using DataLab