lm_function.R

housing <- read.csv("https://goo.gl/eYbv9F",
                    header = TRUE, 
                    sep = "," )

normalized <- apply(housing[ , -3 ], 2, scale)
normalized_data <- data.frame(cbind(normalized, price = housing$price))
model <- lm( price ~ ., data = normalized_data)
model
#
#Call:
#  lm(formula = price ~ ., data = normalized_data)
#
#Coefficients:
#  (Intercept)         area     bedrooms  
#       340413       110631        -6649