Re: 오늘의 마지막 문제 . 나이브 베이즈 확률 문제 2개

[20기_서상원]

#  오늘의 마지막 문제 

# ❓ 연습문제  

---

# 📝 문제 1
# 40대 남성, 언론 직업, 결혼, 이성친구 없음 → 공포 영화 선호 확률?

---

10. 확률 기반 예측 수행

library(naivebayes)
new_model <- naive_bayes(장르 ~., data=train_data)

test_date2 <- data.frame(나이='40대', 성별='남',
                         직업='언론', 결혼여부='YES',
                         이성친구 ='NO')
result2 <- predict(new_model, test_date2, type = 'prob')
result2

                         SF               공포                    로맨틱                   무협
[1,] 0.001117035 0.003971681 0.000001117035 0.0009929204
              스릴러                       액션                  코미디
[1,]0.9929204 0.000003971681 0.0009929204

답: 공포영화 선호 확률은 0.03%

---

#   📝 문제 2
# 20대 여성, 학생, 결혼 안 함, 이성친구 있음 → 선호 영화 장르 예측?

---

#9. 맞춤형 예측 수행
test_date2 <- data.frame(나이='20대', 성별='여',
                         직업='학생', 결혼여부='NO',
                         이성친구 ='YES')
result2 <- predict(model, test_date2)
result2

답:[1] 로맨틱
Levels: SF 공포 로맨틱 무협 스릴러 액션 코미디


#10. 확률 기반 예측 수행

library(naivebayes)
new_model <- naive_bayes(장르 ~., data=train_data)

test_date2 <- data.frame(나이='20대', 성별='여',
                         직업='학생', 결혼여부='NO',
                         이성친구 ='YES')
result2 <- predict(new_model, test_date2, type = 'prob')
result2

                                    SF                                  공포              로맨틱
[1,] 0.0000002133329 0.000000000006826653 0.9999981
                                     무협                            스릴러                             액션
[1,] 0.000000001706663 0.000000001706663 0.000000006826653
                        코미디
[1,] 0.000001706663

답: 로맨스 99.9%