tikatuwq (version 0.9.0)

compute_load: Carga poluidora (concentracao x vazao)

Description

Calcula a carga poluidora diaria (ou na unidade desejada) como o produto entre concentracao e vazao: \(L = C \times Q \times f\), onde \(f\) e o fator de conversao de unidades.

Usage

compute_load(
  df,
  param,
  flow_col = "vazao",
  unit_out = c("kg_dia", "t_dia", "kg_ano", "g_s"),
  unit_factor = NULL,
  col_name = NULL
)

Value

O df de entrada com a nova coluna de carga adicionada.

Arguments

df

Data frame com ao menos a coluna de param e de flow_col.

param

Character; nome da coluna de concentracao (mg/L).

flow_col

Character; nome da coluna de vazao. Default "vazao".

unit_out

Character; unidade de saida. Uma de "kg_dia" (default), "t_dia", "kg_ano", "g_s".

unit_factor

Numeric; fator de conversao personalizado. Se fornecido, sobrepoe unit_out.

col_name

Character; nome da coluna de saida. Default: composto automaticamente como "{param}_carga_{unit_out}".

Details

Unidades de saida suportadas:

"kg_dia"

mg/L * m3/s -> kg/dia (fator = 86.4).

"t_dia"

mg/L * m3/s -> t/dia (fator = 0.0864).

"kg_ano"

mg/L * m3/s -> kg/ano (fator = 31536).

"g_s"

mg/L * m3/s -> g/s (fator = 1).

As unidades pressupõem vazao em m³/s e concentracao em mg/L. Ajuste o fator com unit_factor se necessario.

See Also

exceedance_prob()

Other load-tools: exceedance_prob()

Examples

# \donttest{
data("wq_demo", package = "tikatuwq")
# Adiciona vazao ficticia para demonstracao
d <- wq_demo
d$vazao <- runif(nrow(d), 2, 10)
d <- compute_load(d, param = "p_total", flow_col = "vazao", unit_out = "kg_dia")
head(d[, c("ponto","p_total","vazao","p_total_carga_kg_dia")])
# }