인류의 복지와 편익을 위한 인프라 건설을 주도하는토목공학과
제목
3학년_인공지능개발실습(머신러닝)_best model selection main coding _ 박영훈 교수
작성일
2023.03.22
작성자
부천대학교 토목공학과
hw=read.csv("attitude_homwork.csv")
head(hw)
hw=hw[ ,-1]
head(hw)
#full model
out=lm(rating~., data=hw)
anova(out)
#best model method1
method1=step(out, direction="backward", trace=FALSE)
method1$anova
method1_bestmodel=lm(rating~complaints+learning, data=hw)
summary(method1_bestmodel)
#best model method2
method2=step(out, direction="both", trace=FALSE)
method2$anova
method2_bestmodel=lm(rating~complaints+learning, data=hw)
summary(method2_bestmodel)
#best model method3
method3=regsubsets(rating~., data=hw, nbest=5)
plot(method3)
method3_bestmodel=lm(rating~complaints, data=hw)
summary(method3_bestmodel)
#best model method4
plot(method3, scale="adjr2" )
method4_bestmodel=lm(rating~complaints+learning+advance, data=hw)
summary(method4_bestmodel)
#best model method5
plot(method3, scale="Cp" )
method5_bestmodel=lm(rating~complaints, data=hw)
summary(method5_bestmodel)