data-raw/toaster.R

In lajh87/tessa: Tender Evaluation Strategy Scenario Analysis

category <- c(
  "Primary Function", "Secondary Function", "Maintenance",
  "Secondary Function", "Health & Safety"
)

criteria <- c(
  "Evenness of toasting", "Reheat setting", "Cleaning time",
  "Defrost and reheat", "Safety"
)

weights <- data.frame(
  `Category` = category,
  `Description` = criteria,
  `Pass/Fail` = c(F, F, F, F, T),
  `Weight` = c(40, 30, 20, 10, NA),
  stringsAsFactors = F,
  check.names = F
)

scenarios <- data.frame(
  ID = 1:4,
  Description = criteria[1:4],
  A = rep("Very High", 4),
  B = c("High", "Very High", "Very High", "High"),
  C = c("Low", "Very High", "Very High", "Very Low"),
  stringsAsFactors = FALSE,
  check.names = FALSE
)

price <- data.frame(
  Scenario = c("A", "B", "C"),
  Price = c(29, 24, 20),
  stringsAsFactors = FALSE,
  check.names = FALSE
  )


strategy <- list(
  select = "Lowest Priced Tender",
  budget_constraint = FALSE,
  quality_threshold = FALSE,
  budget_val = 28,
  quality_val = 63,
  wfvm = list(wq = 60),
  wtp = list(
    cost = list(
      min = 0,
      max = 40,
      value = c(30, 40)
      ),
    non_cost = list(
      min = 0,
      max = 100,
      value = c(60, 100)
      )
    ),
  ra = list(wq = 60)
)

toaster <- list(
  weights = weights,
  scenarios = scenarios,
  price = price,
  strategy = strategy
  )

usethis::use_data(toaster, overwrite = T)