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