Extrapolation limits

extrapolate evaluates the extrapolation eventually used in the appraisals and returns the precision degree as defined in brazilian standard NBR-14.653-2 .

extrapolate(object, newdata)

Arguments

object	object of type bestfit
newdata	data frame with the real estate data to be appraised

Examples

## newdata inside the data file
fit <- lm(log(valor) ~ ., centro_2015@data)
extrapolate(object = fit)
#> $valor
#>   area_total quartos suites garagens dist_b_mar
#> 1          0       0      0        0          0
#> 2          0       0      0        0          0
#> 3          0       0      0        0          0
#> 
#> $percentual
#> NULL
#> 
#> $fronteira
#> NULL
#> 
#> $grau_variaveis
#> NULL
#> 
#> $grau_aval
#> NULL
#> 

## newdata provided as an argument
library(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
newdata <-
  centro_2015@data %>%
  filter(is.na(valor)) %>%
  select(-valor)
newdata$area_total[1] <- 1.5*max(centro_2015@data[complete.cases(centro_2015@data), "area_total"])
newdata$dist_b_mar[2] <- .5*min(centro_2015@data[complete.cases(centro_2015@data), "dist_b_mar"])

extrapolate(object = fit, newdata = newdata)
#> Warning: an argument will be fractionally recycled
#> Warning: '>' not meaningful for factors
#> Warning: an argument will be fractionally recycled
#> Warning: '<' not meaningful for factors
#> Warning: an argument will be fractionally recycled
#> Warning: '>' not meaningful for factors
#> Warning: an argument will be fractionally recycled
#> Warning: '<' not meaningful for factors
#> Warning: an argument will be fractionally recycled
#> Warning: '>' not meaningful for factors
#> Warning: an argument will be fractionally recycled
#> Warning: '<' not meaningful for factors
#> $valor
#>   area_total quartos suites garagens dist_b_mar
#> 1        289       0      0        0          0
#> 2          0       0      0        0        -30
#> 3          0       0      0        0          0
#> 
#> $percentual
#>   area_total dist_b_mar
#> 1        0.5         NA
#> 2         NA       -0.5
#> 
#> $fronteira
#>   area_total quartos suites garagens dist_b_mar padrao
#> 1        578       3      1        2        250  baixo
#> 2        205       3      1        2         60  medio
#> 3        205       3      1        2        250   alto
#> 
#> $grau_variaveis
#>   id1        area_total         dist_b_mar
#> 1   1 50.00%(Grau I/II)               <NA>
#> 4   2              <NA> -50.00%(Grau I/II)
#> 
#> $grau_aval
#>    1    2 
#> "II" "II" 
#>