library(tidyverse)
## Warning: package 'tidyverse' was built under R version 3.4.2
## Loading tidyverse: ggplot2
## Loading tidyverse: tibble
## Loading tidyverse: tidyr
## Loading tidyverse: readr
## Loading tidyverse: purrr
## Loading tidyverse: dplyr
## Warning: package 'readr' was built under R version 3.4.2
## Conflicts with tidy packages ----------------------------------------------
## filter(): dplyr, stats
## lag(): dplyr, stats
library(janitor)
library(car)
##
## Attaching package: 'car'
## The following object is masked from 'package:dplyr':
##
## recode
## The following object is masked from 'package:purrr':
##
## some
kc_house_data <- read_csv("C:/Users/kuffu/Desktop/kc_house_data.csv")
## Parsed with column specification:
## cols(
## .default = col_integer(),
## id = col_character(),
## date = col_datetime(format = ""),
## price = col_double(),
## bathrooms = col_double(),
## floors = col_double(),
## lat = col_double(),
## long = col_double()
## )
## See spec(...) for full column specifications.
housedt<-kc_house_data
reg <- housedt %>% mutate(nbedrooms=bedrooms/33, nbathrooms=bathrooms/8, nfloors=floors/3.5, ncondition=condition/5, nview=view/4) %>%
mutate(nview=view/4, ngrade=grade/13, nyrbuilt=yr_built/2015, nysqftabove=sqft_above/9410) %>%
mutate(nysqftbasement=sqft_basement/4820, nysqftlot=sqft_lot/165135, nyrrenovated=yr_renovated/2015 ) %>%
select(nbedrooms, nbathrooms, nfloors, ncondition, nview, ngrade, nyrbuilt, nysqftabove, nysqftbasement, nysqftlot, nyrrenovated, price)
reg1 <- lm(price ~ ., data = reg)
summary(reg1)
##
## Call:
## lm(formula = price ~ ., data = reg)
##
## Residuals:
## Min 1Q Median 3Q Max
## -1327395 -111613 -10410 90167 4430079
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 6151123 141355 43.516 < 2e-16 ***
## nbedrooms -1370899 68330 -20.063 < 2e-16 ***
## nbathrooms 362277 28574 12.679 < 2e-16 ***
## nfloors 88031 13371 6.584 4.69e-11 ***
## ncondition 99152 12774 7.762 8.71e-15 ***
## nview 286066 8537 33.508 < 2e-16 ***
## ngrade 1587226 28754 55.199 < 2e-16 ***
## nyrbuilt -7137731 145998 -48.889 < 2e-16 ***
## nysqftabove 1637322 33589 48.746 < 2e-16 ***
## nysqftbasement 825534 22669 36.417 < 2e-16 ***
## nysqftlot -44883 6181 -7.262 3.95e-13 ***
## nyrrenovated 31276 8052 3.884 0.000103 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 221200 on 21601 degrees of freedom
## Multiple R-squared: 0.637, Adjusted R-squared: 0.6369
## F-statistic: 3447 on 11 and 21601 DF, p-value: < 2.2e-16
library(dotwhisker)
## Warning: package 'dotwhisker' was built under R version 3.4.2
## Loading required package: gridExtra
## Warning: package 'gridExtra' was built under R version 3.4.2
##
## Attaching package: 'gridExtra'
## The following object is masked from 'package:dplyr':
##
## combine
## Loading required package: gtable
dwplot(reg1)
