# Load example data
data(SAEval_example)
# cv for the direct estimates
SAEval_example$cvd<-sqrt(SAEval_example$mse_d)/SAEval_example$y_d
#cv for the synthetic estimates
SAEval_example$cvsae<-sqrt(SAEval_example$mse_sa)/SAEval_example$y_syna
cv_data<-SAEval_example[,c("cvd","cvsae")]
SAEval_cvtable<-cv_table(data=cv_data,
cv=~cvd+cvsae)
SAEval_cvtable
Run the code above in your browser using DataLab