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 | moonbook package mycsv 관련 오류 문의드립니다. [2] | qwetyui | 2023.11.30 |
1253 | logistic regression 명령어 문의드립니다. [2] | 로렌쵸메디치 | 2023.11.22 |
1252 | spss 파일 불러오기. [1] | 통계린 | 2023.11.22 |
1251 | PSM 매칭변수 숫자 관련 문의입니다. [1] | 오하나 | 2023.11.22 |
1250 | Multiple imputation 관련 질문 및, age adjusted incidence rate 관련 질문을 드립니다. | YSKBH | 2023.11.15 |
1249 | semMediation 설치 재문의드립니다 [3] | 마술샘 | 2023.11.11 |
1248 | 안녕하세요. 정회원 문의 [1] | lionking | 2023.11.06 |
1247 | PSM 관련 질문드립니다. | dr. | 2023.11.05 |
1246 | ggplot [1] | 통계린 | 2023.10.30 |
1245 | 정회원 [1] | 통계린 | 2023.10.29 |
1244 | PSM 관련 질문 드립니다. [2] | 로렌쵸메디치 | 2023.10.25 |
1243 | forest plot 그림이 전체가 다 나오지 않습니다. [1] | joyguni | 2023.10.08 |
1242 | PSM caliper default 값 관련 문의드립니다. [1] | Ooppps | 2023.10.05 |
1241 | reliability test tool,,, [1] | FAdavid | 2023.10.05 |
1240 | 정회원 가입 확인 요청드립니다. [1] | osman | 2023.10.03 |
1239 | 생존분석, cox 회귀 관련 기초적인 질문 입니다. | 만니톨 | 2023.09.27 |
1238 | Twang-mnps에서 매칭된 데이터를 추출하는 방법 좀 알려주세요 | Dorocy | 2023.09.26 |
1237 | 영수증 발급을 부탁드립니다. [1] | 규빈어멈 | 2023.09.26 |
1236 | 정회원 확인 [2] | lionking | 2023.09.24 |
1235 | autoReg 에러 문의드립니다 [1] | 소소 | 2023.09.23 |
R에서 조합을 만드는 함수는 combn()입니다. 함수의 도움말을 참조하세요.
자동으로 실행시키는 함수를 하나 만드셔서 진행하시면 될 것 같습니다.