The R program below generates hypothetical data concerning

The R program below generates hypothetical data concerning student characteristics (GPA and Effort) and whether or not the student should be hired (Hirable).

The following results were extracted from the output and should be used to answer parts a, b. There is no need to run a computer program.

n for training data set=100

Prior probabilities for Hirable: Yes=.55 No p=.45

Questions:

1. a) Verify the posterior probability computations for a student with a poor GPA who showed lots of Effort.

2. b) How would a student with a poor GPA who showed lots of Effort be classified? Hirable Yes? No?

R program

#HW09

library(faraway)

library(caret)

library(e1071)

library(psych)

library(naivebayes)

set.seed(1432)

### Simulate example data

n <- 100

train = data.frame(Hirable = sample(c(“Yes”, “No”), n, TRUE),

                   GPA = sample(c(“1.poor”,”2.average”,”3.excellent”), n, TRUE),

                   Effort = sample(c(“lots”,”some”), n, TRUE))

xtabs(~ GPA + Effort + Hirable, data=train)

nb <- naive_bayes(Hirable ~ GPA + Effort, data=train)

summary(nb)

test1 = data.frame(GPA = c(“1.poor”), Effort=c(“lots”))

test2 = data.frame(GPA = c(“1.poor”), Effort=c(“some”))

test3 = data.frame(GPA = c(“2.average”), Effort=c(“lots”))

test4 = data.frame(GPA = c(“2.average”), Effort=c(“some”))

test5 = data.frame(GPA = c(“3.excellent”), Effort=c(“lots”))

test6 = data.frame(GPA = c(“3.excellent”), Effort=c(“some”))

test=rbind(test1,test2,test3,test4,test5,test6)

test

# Classification

predict(nb, test, type = “class”)

nb %class% test

# Posterior probabilities

predict(nb, test, type = “prob”)

nb %prob% test

program already post here.