# Vetores
secchi <- c(1.2, 0.8, 0.4) # m
clorofila <- c(5, 12, 30) # ug/L
tp <- c(20, 40, 70) # ug/L
iet_carlson(secchi = secchi, clorofila = clorofila, tp = tp)
# Data frame
# df <- data.frame(secchi = secchi, clorofila = clorofila, p_total = c(0.02, 0.04, 0.07))
# iet_carlson(df) # converte p_total -> tp (ug/L)
# iet_carlson(df, .keep_ids = TRUE)
Run the code above in your browser using DataLab