cf <- check_that(women, height>0, height/weight < 0.5)
cf
summary(cf)
barplot(cf)
## Not run:
# # this works only after loading the 'magrittr' package
# women %>%
# check_that(height>0, height/weight < 0.5) %>%
# summary()
# ## End(Not run)
Run the code above in your browser using DataLab