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 |
---|---|---|---|
834 | 교수님께. PPT download 오류 [1] | giin | 2018.09.17 |
833 | R-meta에 대해 여쭙니다. [2] | PedEndo | 2019.04.04 |
832 | PSM 질문합니다ㅜ | 카트라이더 | 2020.12.14 |
831 | 교수님 문의드립니다~ [3] | neurokim | 2017.01.06 |
830 | 예후예측 점수 만든후 그것으로 survival 예측하는 데에 문제 겪고있습니다. [1] | 권혜미 | 2022.02.08 |
829 | 깃허브 적용 | bnmy6581 | 2019.01.24 |
828 | 일반화된 효과 크기 데이터에서 효과크기만 있어도 분석가능할까요? | mkjo | 2016.10.17 |
827 | 정회원 서버 접속을 했는데요. 2 | 통계정말초보 | 2019.04.20 |
826 | PSM 에 대해서 문의 드립니다 | jaljary | 2020.06.18 |
825 | 메타분석 설명 [1] | 야스오 | 2021.05.04 |
824 | 질문드립니다. [3] | JJ1518 | 2020.11.27 |
823 | KM curve에서 legend 에 관한 질문입니다. [1] | 김정환 | 2016.11.13 |
822 | 꺽은선 그래프 아래의 면적 [1] | 김밥친구 | 2019.08.20 |
821 | PSM 관련 초보자 문의 드립니다. [1] | 스티브 | 2020.11.03 |
820 | 질문드립니다. [1] | 죵죵죵 | 2016.07.10 |
» | 변수 넣고 빼기 [1] | Yoonida | 2018.11.01 |
818 | 로지스틱 회귀분석 - 에러코드 문의드립니다. [1] | wave | 2021.08.30 |
817 | 기초적인 질문이지만 .. 여쭤봅니다. [2] | 나현둥 | 2021.12.13 |
816 | 단독망에서 패키지 실행 질문있습니다. [1] | 김지은22 | 2018.06.05 |
815 | web-r 4.0 에서 log rank test 문의드립니다. | nsstp | 2020.05.04 |
R에서 조합을 만드는 함수는 combn()입니다. 함수의 도움말을 참조하세요.
자동으로 실행시키는 함수를 하나 만드셔서 진행하시면 될 것 같습니다.