extractDiscountSets: extract discount sets

In frumentum/BuyPotterSaveMoney: Calculates the best discount within a shopping cart

Description

Based on analyseShoppingCart() and enumerateCombinations() this function provides filtered but possible discount sets.

Usage

extractDiscountSets(alternatives, intermediateSteps = FALSE)

Arguments

alternatives	matrix as it comes from enumerateCombinations()
intermediateSteps	logical; default is FALSE

Value

If intermediateSteps is set to TRUE, a list will be returned; otherwise a matrix

Examples

```
# These books are available in the shop
books <- dplyr::tibble(
  itemID = 1:5,
  name = c(
    "Stein der Weisen",
    "Kammer des Schreckens",
    "Gefangene von Askaban",
    "Feuerkelch",
    "Orden des Phönix"
  )
)

set.seed(1)
shoppingCart <- dplyr::sample_n(books, 15, replace = TRUE) %>%
  dplyr::arrange(itemID)

ls <- analyseShoppingCart(shoppingCart, itemID, name)
alternatives <- enumerateCombinations(ls)
extractDiscountSets(alternatives)
```

frumentum/BuyPotterSaveMoney documentation built on May 15, 2019, 10:49 a.m.