estimateThetas crashes R if non-numeric data

[erossiter]

We need to add a check for this to throw an error