## ----setup, include = FALSE---------------------------------------------------
knitr::opts_chunk$set(collapse = TRUE, comment = "#>")
library(ValCurvaR)

## ----dados--------------------------------------------------------------------
dados <- dados_eurachem_a52()
curva <- validar_curva(dados, concentracao_mg_L, absorbancia, replica)

ols <- ajustar_curva(curva, metodo = "ols")
wls <- ajustar_curva(curva, metodo = "wls", pesos = "variancia_nivel")

ols
wls

## ----diagnosticos-------------------------------------------------------------
diag_ols <- diagnosticar_curva(ols)
diag_ols$resumo_niveis
diag_ols$homocedasticidade
diag_ols$falta_ajuste
diag_ols$mandel
diag_ols$avisos

## ----comparacao---------------------------------------------------------------
comparar_modelos(ols, wls)

## ----graficos, fig.width = 8, fig.height = 7----------------------------------
painel_calibracao(wls)

## ----retrocalculo-------------------------------------------------------------
retrocalcular_concentracao(wls, sinal = c(0.133, 0.180), k = 1)

## ----adequacao----------------------------------------------------------------
avaliar_adequacao(
  wls,
  criterios = list(
    cv_max_percentual = 10,
    erro_relativo_retrocalculo_max_percentual = 10
  )
)

relatorio_auditoria(wls, criterios = list(cv_max_percentual = 10))