RMagic Example Using Logit Regression