# NOT RUN {
dv <- c(1, 2, 4, "88 (excluded)", "bql", "*")
unique_non_numerics(dv)
df <- tibble::data_frame(ID = 1:3, DV = c("BQL", 0.5, 9))
unique_non_numerics(df$DV)
#using dplyr
library(dplyr)
df %>% filter(!(DV %in% unique_non_numerics(DV)))
# }
Run the code above in your browser using DataLab