solvecost_chem function

Determine chemical cost

This function takes a chemical dose in mg/L, plant flow, chemical strength, and $/lb and calculates cost.

solvecost_chem(dose, flow, strength = 100, cost, time = "day")

Arguments

• dose: Chemical dose in mg/L as chemical
• flow: Plant flow in MGD
• strength: Chemical product strength in percent. Defaults to 100 percent.
• cost: Chemical product cost in $/lb
• time: Desired output units, one of c("day", "month", "year"). Defaults to "day".

Returns

A numeric value for chemical cost, $/time.

Examples

alum_cost <- solvecost_chem(dose = 20, flow = 10, strength = 49, cost = .22)

library(dplyr)
cost_data <- tibble(
  dose = seq(10, 50, 10),
  flow = 10
) %>%
  mutate(costs = solvecost_chem(dose = dose, flow = flow, strength = 49, cost = .22))