cf <- check_that(women, height>0, height/weight < 0.5)
cf
summary(cf)
barplot(cf)
# 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