# NOT RUN {
# Single cross-validation test with 25% test set
demsup_xvtest_25pct <- dcpo_xvt(demsup_data,
chime = FALSE,
number_of_folds = 4,
iter = 300,
chains = 1) # 1 chain/300 iterations for example only; use defaults
get_xvt_results(demsup_xvtest_25pct)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab