设计一个通用电费函数r语言？

在R语言中设计一个通用的电费计算函数，通常会接收一些参数，如电力用量（千瓦时）、电价（每千瓦时的价格）以及可能存在的附加费用或折扣等。下面是一个简单的示例：

# 定义通用电费计算函数
calculate_bill <- function(usage_kwh, rate_per_kwh, additional_charges = 0, discount_rate = 0) {
  # 计算基本电费
  base_fee <- usage_kwh * rate_per_kwh
  
  # 如果有额外费用，加上去
  if (!is.na(additional_charges)) {
    base_fee <- base_fee + additional_charges
  }
  
  # 应用折扣（如果有的话）
  total_fee <- base_fee * (1 - discount_rate / 100)
  
  total_fee
}

# 使用示例
# 假设单价是0.5元/kWh，无额外费用，也没有折扣
basic_usage_fee <- calculate_bill(100, 0.5)
# 或者考虑10%的折扣
discounted_fee <- calculate_bill(150, 0.6, discount_rate = 10)

#