Thanks. I would post this as a gist, so others can follow along, but I'm not sure of the IP restrictions.
Rather than attaching ogdata, I changed the values in place to avoid namespace clashes between the attached fields changes and ogdata, which does not reflect those changes, e.g.,
> class(TargetBuy)
[1] "factor"
> class(ogdata$TargetBuy)
[1] "integer"
To get to your question, however, I have to get past the specification of finalmodel
finalmodel <- glm(TargetBuy ~.-ï..ID,
data = ogdata, family = binomial)
doesn't work, obviously. Do you mean
finalmodel <- glm(TargetBuy ~ DemGender + PromClass + ID,
data = ogdata, family = binomial)
or
finalmodel <- glm(TargetBuy ~ .,
data = ogdata, family = binomial)
which give quite different coefficients.