## Not run:
# ## filter_row EXAMPLE:
# filter_row(DATA, "person", c("sam", "greg"))
# filter_row(DATA, 1, c("sam", "greg"))
# filter_row(DATA, "state", c("Comp"))
# filter_row(DATA, "state", c("I "))
# filter_row(DATA, "state", c("you"), ignore.case=TRUE)
#
# ## filter_empty_row EXAMPLE:
# (dat <- rbind.data.frame(DATA[, c(1, 4)], matrix(rep(" ", 4),
# ncol =2, dimnames=list(12:13, colnames(DATA)[c(1, 4)]))))
# filter_empty_row(dat)
#
# ## filter_NA EXAMPLE:
# DATA[1:3, "state"] <- NA
# filter_NA(DATA)
# ## End(Not run)
Run the code above in your browser using DataLab