IPSSMannotate.R doesn't handle different categories

[m6oland]

When the range patientResult$IPSSMscore_worst - patientResult$IPSSMscore_best is above the limit range.max and the categories are different as.vector(patientResult$IPSSMcat_worst) != as.vector(patientResult$IPSSMcat_best) this function returns null score and category. Based on what the calculator returns, this should return the mean risk and mean category and include an annotation such as 'IPSS-M results less confident due to missing mutation data'