Databases Reference
In-Depth Information
p1
<-
predict
(
fit
,
newdata
=
test
,
type
=
"response"
)
fit
<-
glm
(
Y_BUY
~
LAST_BUY
,
data
=
train
,
family
=
binomial
(
logit
))
p2
<-
predict
(
fit
,
newdata
=
test
,
type
=
"response"
)
fit
<-
glm
(
Y_BUY
~
num_checkins
,
data
=
train
,
family
=
binomial
(
logit
))
p3
<-
predict
(
fit
,
newdata
=
test
,
type
=
"response"
)
pred
<-
prediction
(
p1
,
y
)
perf1
<-
performance
(
pred
,
'tpr'
,
'fpr'
)
pred
<-
prediction
(
p2
,
y
)
perf2
<-
performance
(
pred
,
'tpr'
,
'fpr'
)
pred
<-
prediction
(
p3
,
y
)
perf3
<-
performance
(
pred
,
'tpr'
,
'fpr'
)
plot
(
perf1
,
color
=
"blue"
,
main
=
"LAST_SV (blue),
LAST_BUY (red), num_checkins (green)"
)
plot
(
perf2
,
col
=
"red"
,
add
=
TRUE
)
plot
(
perf3
,
col
=
"green"
,
add
=
TRUE
)