How do I tell the misclassification rate from here? Or my code is not correct?

M6 - glm (Buy~. , data= Q8, family = binomial ) summary (M6) Call : glm(formula = Buy ~ ., family = binomial, data = Q8) Deviance Residuals: Min 1Q Median 3Q Max -2 . 4361 -1. 1444 0. 7055 1. 0655 1. 8927 Coefficients: Estimate Std. Error z value Pr(> |z|) (Intercept) -0. 1630184 0. 1021597 -1. 596 0. 110551 percent 0 . 0061820 0. 0014643 4.222 2.42e-05 * * * opportunities 0. 0616831 0. 0195349 3. 158 0. 001591 * * lapse 0 . 0002116 0. 0000391 -5 . 412 6.23e-08 * * * avgsize 0 . 0041163 0. 0216667 -0. 190 0. 849322 totorders 0. 0399002 0. 0109678 3. 638 0. 000275 * * * Signif. codes: 0 '* **' 0.001 * *' 0.01 '*' 0.05 '.' 0.1 " '1 (Dispersion parameter for binomial family taken to be 1) Null deviance: 4119.4 on 2999 degrees of freedom Residual deviance: 3859.4 on 2994 degrees of freedom AIC: 3871.4 Number of Fisher Scoring iterations: 4#8: Build a logistic regression model predicting Buy from all predictors (no interactions). Report its misclassification RATE. NOTE: This should be formated as a decimal like 0. 2392. {r} M6