Create rbm_crossval.R