rs <- ruleset(
rule(Ozone > 0 & Ozone < 120, allow_na = TRUE), # some mising values and > 120
rule(Solar.R > 0, allow_na = TRUE),
rule(Solar.R < 200, allow_na = TRUE),
rule(Wind > 10),
rule(Temp < 100)
)
res <- check_data(airquality, rs)
plot_res(res)
Run the code above in your browser using DataLab