Skip to menu

변수 넣고 빼기

Yoonida 2018.11.01 16:15 Views : 200

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열만 빼고 나머진 넣고 하는 식으로요..