credit$default <- factor(credit$default)
credit_rand <- credit[,c(3, 4, 5, 7,8,9,10,11,12)]
credit_train <- credit_rand[1:7000,]
credit_test <- credit_rand[7001:10000,]
credit_train_labels <- credit[1:7000, 25]
credit_test_labels <- credit[7001:10000, 25]
prop.table(table(credit_train_labels))
prop.table(table(credit_test_labels))
credit_classifier <- naiveBayes(credit_train, credit_train_labels)
credit_classifier
credit_test_pred <- predict(credit_classifier, credit_test)
credit_test_pred
CrossTable(credit_test_pred, credit_test_labels,
prop.chisq = FALSE, prop.r = FALSE, prop.t = FALSE,
dnn = c('predicted', 'actual'))
이걸 해보는데요, credit_rand <- credit[,c(3, 4, 5, 7,8,9,10,11,12)]이 부분에서 변수 9개를 빼거나 해서 만들 수 있는 모든 조합을
자동으로 실행 시켜볼 수는 없나요??
예를 들어 3열만 빼고 나머지 다쓰고, 4열만 빼고 나머진 넣고 하는 식으로요..
Comment 1
-
cardiomoon
2018.11.02 15:18
No. | Subject | Author | Date |
---|---|---|---|
1254 | 생존분석 [1] | toby | 2015.04.29 |
1253 | RStudio v0.99 Preview: Code Diagnostics [1] | fermat39 | 2015.04.30 |
1252 | Rstudio 사용법` [3] | 방랑자 | 2015.05.02 |
1251 | need finite 'xlim' values [3] | anthleemd | 2015.05.02 |
1250 | 샤이니 앱에서 SQL 명령어 사용 방법 [2] | 김브링이 | 2015.05.06 |
1249 | 표만들기 관련 [2] | 현승협 | 2015.05.07 |
1248 | MS word문서 저장관련 [1] | 아자 | 2015.05.09 |
1247 | R서버 설치 문의드립니다. [4] | 화모기 | 2015.05.13 |
1246 | 웹에서 하는 R통계 - R코드 [2] | 김영진 | 2015.06.07 |
1245 | Plot inset 만들기 | cardiomoon | 2015.06.09 |
1244 | 오류 질문 - 표작성시 [1] | 미소천사 | 2015.06.15 |
1243 | 오류 질문 - PDF 변환 안되는 file입니다. [1] | 미소천사 | 2015.06.15 |
1242 | print ztable [1] | 김영진 | 2015.06.17 |
1241 | 표 작성시 질문 [1] | simsim | 2015.06.17 |
1240 | 나무 분석 질문입니다. | 미소천사 | 2015.06.19 |
1239 | Interactive ggplot2 [2] | cardiomoon | 2015.06.22 |
1238 | Rstudio server 서버 오류 관련해서 문의드립니다. [2] | 노상래 | 2015.07.22 |
1237 | Rstudio server 무한 로딩 관련해서 문의 드립니다. [6] | 노상래 | 2015.07.24 |
1236 | http://www.r-statistics.com/ 번역소식 [1] | fermat39 | 2015.07.25 |
1235 | 생존분석 변수선택 [3] | nash | 2015.08.11 |
R에서 조합을 만드는 함수는 combn()입니다. 함수의 도움말을 참조하세요.
자동으로 실행시키는 함수를 하나 만드셔서 진행하시면 될 것 같습니다.