# NOT RUN {
set.seed(12)
d <- data.frame(
mpg = rnorm(100, 25, 3),
gear = sample(3:6, 100, replace = TRUE),
vs = sample(0:1, 100, replace = TRUE),
stringsAsFactors = FALSE
)
filter_data(d, mpg > 30)
filter_data(d, !mpg < 30)
filter_data(d, mpg > 30, !mpg < 30)
filter_data(d, mpg > 30, gear == 4)
filter_data(d, mpg > 30 | gear == 4, vs == 1)
# }
Run the code above in your browser using DataLab