View source: R/standard_ratio.R
iaao_Ratio | R Documentation |
Statiscal anlysis for matching of appraisal and market data. Based on International Association of Assessing Officers' Standard on Ratio Studies Document
iaao_Ratio(x, ...)
## Default S3 method:
iaao_Ratio(AssessedValue, SalePrice, OutlierTrimming = FALSE)
## S3 method for class 'lm'
iaao_Ratio(object, FUN = "identity", ...)
... |
further arguments passed to |
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) |
COD, PRD (ratios) and PRB according to IAOO
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")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.