$`formula:`
purchase ~ floorsz + unemploy + prof


Call:
glm(formula = poiformula, family = "poisson", data = spdata)

Deviance Residuals: 
    Min       1Q   Median       3Q      Max  
-444.14   -65.90    -7.63    53.02   330.48  

Coefficients:
             Estimate Std. Error z value Pr(>|z|)    
(Intercept) 9.993e+00  1.031e-03    9694   <2e-16 ***
floorsz     7.750e-03  3.133e-06    2473   <2e-16 ***
unemploy    4.054e+00  7.398e-03     548   <2e-16 ***
prof        2.298e+00  1.592e-03    1444   <2e-16 ***
---
Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1

(Dispersion parameter for poisson family taken to be 1)

    Null deviance: 10099368  on 315  degrees of freedom
Residual deviance:  2984527  on 312  degrees of freedom
AIC: 2988852

Number of Fisher Scoring iterations: 4