Update ModelThreshold.r

quick typo fixes