귀무가설 : 찰스강 근처에 위치하는 집들은 집값에 영향이 없다.
대립가설 : 찰스강 근처에 위치하는 집들은 집값에 영향이 있다.
# 1. 데이터를 로드합니다.
boston <- read.csv('../downloads/boston.csv')
# 2. 독립변수들 끼리의 상관관계를 확인합니다.
cor(boston[ , -15])
# 3. 회귀모델을 생성합니다.
model <- lm(price~., data=boston)
summary(model)
Coefficients:
Estimate Std. Error t value Pr(>|t|)
CHAS 2.705245 0.861298 3.141 0.001786 **
p_value 값이 0.001786이므로 유의하다. 따라서 대립가설을 채택한다.
# 4. 다중공선성 문제를 보이는지 확인합니다.
vif(model) > 10
id CRIM ZN INDUS CHAS NOX RM AGE
FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
DIS RAD TAX PTRATIO B LSTAT
FALSE FALSE FALSE FALSE FALSE FALSE
다중공산성 문제 없음