## ----echo = FALSE, message = FALSE--------------------------------------------
library(rPref)
suppressPackageStartupMessages(library(dplyr))

## ----results='asis'-----------------------------------------------------------
p <- high(mpg) * high(hp)
res <- psel(mtcars, p)
knitr::kable(select(res, mpg, hp))

## ----collapse = TRUE----------------------------------------------------------
p <- high(mpg, df = mtcars) * high(hp) * low(qsec)
p

## ----results='asis'-----------------------------------------------------------
res <- peval(p)
knitr::kable(select(res, mpg, hp, qsec))

## ----results='asis'-----------------------------------------------------------
res <- mtcars %>%
  filter(am == 0) %>%
  psel(p)
knitr::kable(select(res, am, mpg, hp, qsec))

## -----------------------------------------------------------------------------
p <- true(am == 1) & high(gear)

## ----results='asis'-----------------------------------------------------------
res <- psel(mtcars, p)
knitr::kable(select(res, am, gear, hp, cyl))

## ----results='asis'-----------------------------------------------------------
p <- (true(am == 1) & high(gear)) * high(hp / cyl)
res <- psel(mtcars, p)
knitr::kable(select(res, am, gear, hp, cyl))

## ----results='asis'-----------------------------------------------------------
res <- psel(mtcars, p, top = 3)
knitr::kable(select(res, am, gear, hp, cyl, .level))

## ----results='asis'-----------------------------------------------------------
res <- psel(mtcars, p, at_least = 3)
knitr::kable(select(res, am, gear, hp, cyl, .level))

## ----results='asis'-----------------------------------------------------------
grouped_df <- group_by(mtcars, cyl)
res <- psel(grouped_df, high(hp) * high(mpg))
knitr::kable(select(res, cyl, hp, mpg))