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 |
---|---|---|---|
1273 | logistic regression analysis 가 에러가 뜹니다. [1] | Ikarus86 | 2023.06.02 |
1272 | PSM 문의 [3] | starwars | 2023.04.13 |
1271 | 에러 문의 [2] | 화이팅 | 2023.04.19 |
1270 | moonBook 오류 관련 재문의드립니다. [1] | holyhyun | 2023.04.24 |
1269 | 통계마당 [2] | ejo | 2023.04.27 |
1268 | 연속형 변수인데 범주형으로 인지됩니다. [2] | shararaku | 2023.04.28 |
1267 | 교수님 안녕하세요~~ | 메시12 | 2023.04.29 |
1266 | 메타분석 U3 그래프 관련 문의드립니다 | 화이팅 | 2023.05.02 |
1265 | regression 결과 ppt 다운로드 오류 [2] | JuEuna | 2023.01.26 |
1264 | 반복 분석 자료 분석에 대해서 [2] | ng2o321 | 2023.01.30 |
1263 | 안녕하세요. 정회원인데, 정회원 서버에서 Table 만들기 하면 [2] | brainok | 2023.02.03 |
1262 | Cluster analysis in Web-R [3] | 깨수깡 | 2023.02.07 |
1261 | logistic regression 결과 다운로드 오류 [2] | 남세이짱 | 2023.03.14 |
1260 | mytable을 사용했는데 표가 console에서 보이지 않고 오류도 없는데, 뭐가 문제일까요? [3] | 난둥 | 2023.02.19 |
1259 | 결과표가 다운에러가 납니다. [2] | sophiachoi | 2023.02.21 |
1258 | PSM 문의 | qubic | 2023.02.23 |
1257 | PSM 결과표 문의입니다. | 오공이공 | 2023.03.02 |
1256 | 안녕하세요. [4] | 유령 | 2023.03.12 |
1255 | 보고서 다운로드 에러가 납니다.. | 세렌 | 2023.03.16 |
1254 | group-based trajectory modeling | swpapa | 2023.03.19 |
R에서 조합을 만드는 함수는 combn()입니다. 함수의 도움말을 참조하세요.
자동으로 실행시키는 함수를 하나 만드셔서 진행하시면 될 것 같습니다.