ratio <- 2
exprs <- qae(Sepal_Long := Sepal.Length >= ratio * Sepal.Width,
Petal_Short = Petal.Length <= 3.5)
print(exprs)
exprs <- qae(Sepal_Long := Sepal.Length >= .(ratio) * Sepal.Width,
Petal_Short = Petal.Length <= 3.5)
print(exprs)
# library("rqdatatable")
# datasets::iris %.>%
# extend_se(., exprs) %.>%
# summary(.)
Run the code above in your browser using DataLab