solvecost_power function

Determine power cost

This function takes kW,

solvecost_power(power, utilization = 100, cost, time = "day")

Arguments

• power: Power consumed in kW
• utilization: Amount of time equipment is running in percent. Defaults to continuous.
• cost: Power cost in $/kWhr
• time: Desired output units, one of c("day", "month", "year"). Defaults to "day".

Returns

A numeric value for power, $/time.

Examples

powercost <- solvecost_power(50, 100, .08)

library(dplyr)
cost_data <- tibble(
  power = seq(10, 50, 10),
  utilization = 80
) %>%
  mutate(costs = solvecost_power(power = power, utilization = utilization, cost = .08))