jurere_2017 | R Documentation |
A tibble containing a sample of 20 plots in subdivision in Florianopolis. Paradigm situation: dry, flat, 15m front width and 30~60m length.
jurere_2017
A tibble with 20 rows and 8 variables:
VALOR TOTAL: price, in brazilian Reais
VU: unitary value per sq. meters
AREA: area, in sq. meters
TESTADA: front width of the land in meters
ESQUINA: corner? 0 = no; 1 = yes
FRENTES: number of lot fronts
DIST_MAR: distance to the sea
PAVIMENTOS: number of floors
DIST_MAR: distance to the sea
CONDOMINIO_FECHADO: gated community? 0 = no, 1 = yes.
PAVIMENTO: paved? NAO = no, SIM = yes.
TOPOGRAFIA: topography PLANO = flat
DATA: date
FONTE: source
data(jurere_2017)
fit <- lm(log(VU) ~ log(AREA)*log(TESTADA) + log(DIST_MAR) + PAVIMENTOS,
data = jurere_2017)
library(effects)
plot(predictorEffects(fit, residuals = T))
# Centering
library(dplyr)
jurere_2017 <- mutate(jurere_2017,
AREA = AREA/450,
TESTADA = TESTADA/15,
DIST_MAR = DIST_MAR/33)
fit1 <- lm(log(VU) ~ log(AREA) + log(TESTADA) + log(DIST_MAR) + PAVIMENTOS,
data = jurere_2017, subset = -c(11, 27, 29))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.