iaao_Ratio: Standard on Ratio Studies function

View source: R/standard_ratio.R

iaao_RatioR Documentation

Standard on Ratio Studies function

Description

Statiscal anlysis for matching of appraisal and market data. Based on International Association of Assessing Officers' Standard on Ratio Studies Document

Usage

iaao_Ratio(x, ...)

## Default S3 method:
iaao_Ratio(AssessedValue, SalePrice, OutlierTrimming = FALSE)

## S3 method for class 'lm'
iaao_Ratio(object, FUN = "identity", ...)

Arguments

...

further arguments passed to iaao_Ratio.

AssessedValue

vector of assessed values (valores venais ou valores preditos do modelo)

SalePrice

vector of sale prices (preços de mercado ou preços reais do modelo)

OutlierTrimming

boolean for outliers trimming or not

object

An object of class lm.

FUN

function used to transform the response (defaults to identity)

Value

COD, PRD (ratios) and PRB according to IAOO

Examples

library(sf)
zilli_2020 <- st_drop_geometry(zilli_2020)
zilli_2020$PC <- as.numeric(zilli_2020$PC)
fit <- lm(log(VU) ~ log(AP) + log(DABM) + ND + NB + NG + PSN + PC + BRO,
data = zilli_2020[1:190, ], subset = -c(86, 115))

new = zilli_2020[c(191:213, 215:225), ]
fitted <- predict(fit, newdata = new)
iaao_Ratio(exp(fitted), new[, "VU", drop = TRUE])
# Applied to centro_2015 dataset
dados <- st_drop_geometry(centro_2015)
dados$padrao <- as.numeric(dados$padrao)
fit <- lm(log(valor)~area_total + quartos + suites + garagens +
log(dist_b_mar) + I(1/padrao), data = dados, subset = -c(31, 39))
iaao_Ratio(object = fit, FUN = "log")

lfpdroubi/appraiseR documentation built on April 14, 2024, 10:27 p.m.