Re: (오늘의 마지막 문제) 미국 대학교 입학점수 데이터를 가지고 단순회귀 곡선을 ...

[19기_신지혜]

#1. 데이터 입력하기
sport <- read.csv("sports.csv", header=T)
head(sport)

#2. 데이터 시각화하기
plot(acceptance ~ academic, data=sport, pch=21, col='darkgrey', bg='darkgrey', 
     main="학과점수에 따른 승인점수 단순회귀분석")

#3. 회귀 모델 생성
model <- lm(acceptance ~ academic, data=sport)
print(summary(model))

#4. 회귀선 추가
abline(model, col='red')

#5. 단순회귀 분석하기
model
summary(model)

학과점수에 따른 승인점수 단순회귀분석은 y=0.18x+26.05으로, 승인점수는 학과점수에 정비례한다. 유의확률은 0.001 미만으로 유의수준보다 낮아 귀무가설이 기각되고 대립가설이 채택되어 해당 모델은 충분히 유의하다. 결정계수는 0.6119, 수정된 결정계수는 0.6099로 설명력이 약간 높은 편이다.

학과점수가 5점 증가할 때 승인점수는 0.9점 증가한다.

학과점수가 10점 증가할 때 승인점수는 1.8점 증가한다.