Using tryCatch and Printing Error Message When Expression Fails with R's stats::chisq.test Function for Goodness of Fit Tests