Create codonmodeltest.R

codonmodeltest function