Update ModelThreshold.r