위키
포럼
도구
바뀐글
랜덤

"R regsubsets()"의 두 판 사이의 차이

12번째 줄: 12번째 줄:
subsets = regsubsets(as.matrix(swiss[,-1]), swiss[,1])
subsets = regsubsets(as.matrix(swiss[,-1]), swiss[,1])
summary(subsets)
summary(subsets)
</syntaxhighlight>
<syntaxhighlight lang='r' run>
df = swiss
subsets = regsubsets(Fertility ~., data=df, nbest=32, method="exhaustive")
summ = summary(subsets)
results = data.frame(
  p    = rowSums(summ$which)-1,
  rss  = summ$rss,
  rsq  = summ$rsq,
  adjr2 = summ$adjr2,
  bic  = summ$bic
)
idx = which.min(results$bic)
results[idx,]
summ$which[idx,]
</syntaxhighlight>
</syntaxhighlight>


2020년 11월 2일 (월) 01:58 판

1 개요

R regsubsets()
  • "Functions For Model Selection → 모델 선택용 함수"
library(leaps)
subsets = regsubsets(Fertility~., data=swiss)
summary(subsets)

library(leaps)
subsets = regsubsets(as.matrix(swiss[,-1]), swiss[,1])
summary(subsets)

df = swiss
subsets = regsubsets(Fertility ~., data=df, nbest=32, method="exhaustive")
summ = summary(subsets)
results = data.frame(
  p     = rowSums(summ$which)-1,
  rss   = summ$rss,
  rsq   = summ$rsq,
  adjr2 = summ$adjr2,
  bic   = summ$bic
)
idx = which.min(results$bic)
results[idx,]
summ$which[idx,]

2 같이 보기

3 참고

원본 주소 "https://zetawiki.com/w/index.php?title=R_regsubsets()&oldid=604914"
문서 댓글 ({{ doc_comments.length }})
{{ comment.name }} {{ comment.created | snstime }}