Unexpected output from sepCensored

[lindsayplatt]

When you incorrectly use a dataframe rather than a vector in sepCensored, it doesn't fail. It just produces a warning about NAs being introduced by coercion. This should fail immediately.

myvals <- c(10:15, "<6", "<8")
mydata <- data.frame(myvals, 10:17)
sepCensored(mydata)

$numeric_vals
[1] NA NA

$censored
[1] NA NA

Warning message:
In sepCensored(mydata) : NAs introduced by coercion