Based on a dataframe containing the estimated values, returns amplitude according to NBR14.653-2

Source: R/parametros_nbr14653.R

Amplitude according to NBR14.653-2.

Precision degree based on NBR14.653-2.

Interval of arbitration according to NBR14.653-2.

Interval evaluation based on NBR14.653-2.

amplitude(Y)

g_precisao(amplitude)

campo_arbitrio(Y)

aval_intervalar(Y)

Arguments

Y

dataframe with Y_hat values with confidence/prediction bestfit
amplitude

a vector containing the amplitudes of the estimations bestfit

Value

a vector containing the amplitudes of the Y_hat in %

a vector containing the precision degrees of the estimations.

a vector containing the interval of arbitration according to NBR14.653-2.

a vector containing interval evaluation according to NBR14.653-2.

Examples

dados <- st_drop_geometry(centro_2015)
fit <- lm(log(valor) ~ ., data = dados)
require(dplyr)

#> Loading required package: dplyr
#> 
#> Attaching package: 'dplyr'
#> The following objects are masked from 'package:stats':
#> 
#>     filter, lag
#> The following objects are masked from 'package:base':
#> 
#>     intersect, setdiff, setequal, union
aval <- dados %>% filter(is.na(valor))
Y_hat <- predict(object = fit, interval = "confidence", newdata = aval)
Y_hat <- inverse(Y_hat, "log")
amp <- amplitude(Y_hat)
amp

#>     1     2     3 
#> 34.21 18.48 21.17 
g_precisao(amp)

#>     1     2     3 
#>  "II" "III" "III" 
campo_arbitrio(Y_hat)

#>     C.A.I.    C.A.S.
#> 1 637358.6  862308.6
#> 2 833530.0 1127717.1
#> 3 889919.5 1204008.7
aval_intervalar(Y_hat)

#>       L.I.      L.S.
#> 1 637358.6  862308.6
#> 2 894177.6 1075426.7
#> 3 942009.7 1163612.1