Added myTryCatch() to functions.R and applied it in model.R