add manyBayes.r