# NOT RUN {
exprs <- qae(Sepal_Long := Sepal.Length >= ratio * Sepal.Width,
Petal_Short := Petal.Length <= 3.5)
print(exprs)
#ratio <- 2
#datasets::iris %.>%
# seplyr::mutate_se(., exprs) %.>%
# summary(.)
# }
Run the code above in your browser using DataLab