filtered <- filter_num(iris, var = "Sepal.Length", op = "<=", num = 5)
cat(code(filtered))
head(filtered)
library(survey)
data(api)
svy <- svydesign(~ dnum + snum,
weights = ~pw, fpc = ~ fpc1 + fpc2,
data = apiclus2
)
svy_filtered <- filter_num(svy, var = "api00", op = "<", num = 700)
cat(code(svy_filtered))
Run the code above in your browser using DataLab