# NOT RUN {
MSE <- runMSE()
ChkYrs(NULL, MSE) # returns c(1, MSE@proyears)
ChkYrs(c(2,5), MSE) # returns c(2,5)
ChkYrs(c(70,80), MSE) # returns c(MSE@proyears-10,MSE@proyears)
ChkYrs(5, MSE) # returns c(1,5)
ChkYrs(-5, MSE) # returns c(46,50)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab