# NOT RUN {
set.seed(1445)
dat <- data.frame(
x = sample(c(1:15, NA, NA), 15),
y = sample(c(1:15, NA, NA), 15),
z = sample(c(1:15, NA, NA), 15)
)
dat
# No NsA per row allowed
delete_na(dat, 0)
# One NA per row allowed
delete_na(dat, 1)
# }
Run the code above in your browser using DataLab