cleanup and refactoring
Added model.code function to bayes.cor.test