- 학습 관련 질문을 남겨주세요. 상세히 작성하면 더 좋아요!
- 먼저 유사한 질문이 있었는지 검색해보세요.
- 서로 예의를 지키며 존중하는 문화를 만들어가요.
- 잠깐! 인프런 서비스 운영 관련 문의는 1:1 문의하기를 이용해주세요.
안녕하세요 알려주신 코드를 손에 익히려 노력하고 있습니다 :)
다름이 아니라, 해당 코드를 다른 데이터에도 적용해보다 궁금한 점이 있어서 질문 드립니다 !
1. 제가 실행한 과정 중에 잘못된 부분이 있을까요?
2. train과 test를 나누고 평가지표로 f1 score도 구하려 했는데 error가 뜹니다, 이유를 알 수 있을까요 ?
p4 <- as.factor(ifelse(p3[,2]>0.5, 1, 0)) tmp <- caret::confusionMatrix(p4,t_test$Response)
3. 강의 중에 작업형 제2유형에서 df <- df%>%select(-c(1,5,6))를 하셨는데, 첫 번째 칼럼인 cust_id를 제거한 이유가 의미있는 정보가 아닌 단순 정보라서 제거하신게 맞나요?
감사합니다 :)
(아래는 제가 실행한 R-code 입니다 !)
train <- read.csv("https://raw.githubusercontent.com/Datamanim/datarepo/main/insurance/train.csv", stringsAsFactors=T) test <- read.csv("https://raw.githubusercontent.com/Datamanim/datarepo/main/insurance/test.csv", stringsAsFactors=T) str(train) summary(train) unique(train$Region_Code) train$Driving_License <- as.factor(train$Driving_License) train$Previously_Insured <- as.factor(train$Previously_Insured) train$Response <- as.factor(train$Response) train <- train %>% select(-c(1,5)) inx <- createDataPartition(train$Response,p=0.7,list=F) t_train <- train[inx,] t_test <- train[-inx,] model1 <- train(Response~., data=t_train, method="glm") model2 <- train(Response~., data=t_train, method="rpart") p1 <- predict(model1,t_test,type="prob") p2 <- predict(model2,t_test,type="prob") p3 <- (p1+p2)/2 auc(t_test$Response,p3[,2]) str(test) summary(test) test$Driving_License <- as.factor(test$Driving_License) test$Previously_Insured <- as.factor(test$Previously_Insured) test <- test %>% select(-c(1,5)) model1 <- train(Response~., data=train, method="glm") model2 <- train(Response~., data=train, method="rpart") p1 <- predict(model1,test,type="prob") p2 <- predict(model2,test,type="prob") p3 <- (p1+p2)/2 resut <- data.frame(result=p3[,2]) print(result)
헉 코드가 저렇게 올라가있는지 몰랐네요 ㅜㅜ 읽기 힘드셨을텐데 죄송합니다
답변 감사해요 많은 도움이 되었습니다 :)