d <- read.csv('https://stats.dip.jp/01_ds/data/real_estate_price.csv')[,-1]
library(DT)
datatable(d)
fit <- lm(price ~ lat+yrs_old+yr+m_sta+nstores+lon, data = d)
library(sjPlot)
## #refugeeswelcome
tab_model(fit, show.stat = T, show.aic = T)
|
|
price
|
|
Predictors
|
Estimates
|
CI
|
Statistic
|
p
|
|
(Intercept)
|
-9859.50
|
-22341.02 – 2622.02
|
-1.55
|
0.121
|
|
lat
|
234.47
|
147.00 – 321.94
|
5.27
|
<0.001
|
|
yrs old
|
-0.27
|
-0.35 – -0.20
|
-7.11
|
<0.001
|
|
yr
|
2.94
|
1.07 – 4.81
|
3.09
|
0.002
|
|
m sta
|
-0.00
|
-0.01 – -0.00
|
-6.10
|
<0.001
|
|
nstores
|
1.16
|
0.79 – 1.53
|
6.17
|
<0.001
|
|
lon
|
-15.34
|
-111.08 – 80.40
|
-0.31
|
0.753
|
|
Observations
|
414
|
|
R2 / R2 adjusted
|
0.581 / 0.575
|
|
AIC
|
2991.283
|