Fix qual_corrected function

Xiao mistakenly originally assigned quality scores in reverse order. Here is her note:the quality scores should be in descending order instead of ascending, so that the first read has the smallest error rate. The code for qual_corrected in fit-hmm.R should be changed to: 
qual_corrected[g] <- qual[g] * (theta ^ (rank(-qual)[g]-1))