## Not run: ------------------------------------
# IC <- loo(resids.all, corrs)
# RC <- loo(resids.all, corrs, level='regional')
## ---------------------------------------------
## Not run: ------------------------------------
# IC <- adply(which(resids.all[, Group == groups[2]]), .margins=1, function(x)
# aop(resids.all, x, corrs[[1]][[1]]$R),
# .parallel=T, .id=NULL)
## ---------------------------------------------
Run the code above in your browser using DataLab