> model.rg <- glm(Y.train~., data = X.train) > step.result<-step(model.rg) "略" > step.result Call: glm(formula = Y.train ~ X1 + X2 + X3 + X4 + X5 + X6 + X7 + X13 + X18 + X20, data = X.train) Coefficients: (Intercept) X1 X2 X3 X4 X5 X6 2.87439 0.67332 -0.42552 0.29593 -0.90412 0.50839 0.64421 X7 X13 X18 X20 -0.03680 0.05682 0.02724 0.02971 Degrees of Freedom: 799 Total (i.e. Null); 789 Residual Nul
![stepwiseとlasso回帰における変数選択を比較 - Qiita](https://cdn-ak-scissors.b.st-hatena.com/image/square/7aa8ee6cf58312e4916599eb8a63f59fcbce315c/height=288;version=1;width=512/https%3A%2F%2Fqiita-user-contents.imgix.net%2Fhttps%253A%252F%252Fcdn.qiita.com%252Fassets%252Fpublic%252Farticle-ogp-background-9f5428127621718a910c8b63951390ad.png%3Fixlib%3Drb-4.0.0%26w%3D1200%26mark64%3DaHR0cHM6Ly9xaWl0YS11c2VyLWNvbnRlbnRzLmltZ2l4Lm5ldC9-dGV4dD9peGxpYj1yYi00LjAuMCZ3PTkxNiZoPTMzNiZ0eHQ9c3RlcHdpc2UlRTMlODElQThsYXNzbyVFNSU5QiU5RSVFNSVCOCVCMCVFMyU4MSVBQiVFMyU4MSU4QSVFMyU4MSU5MSVFMyU4MiU4QiVFNSVBNCU4OSVFNiU5NSVCMCVFOSU4MSVCOCVFNiU4QSU5RSVFMyU4MiU5MiVFNiVBRiU5NCVFOCVCQyU4MyZ0eHQtY29sb3I9JTIzMjEyMTIxJnR4dC1mb250PUhpcmFnaW5vJTIwU2FucyUyMFc2JnR4dC1zaXplPTU2JnR4dC1jbGlwPWVsbGlwc2lzJnR4dC1hbGlnbj1sZWZ0JTJDdG9wJnM9MjE3ZDI2NWJiMDI1ZWY5Yzg2OTg5ZTQ3ZWU3OGY5NmU%26mark-x%3D142%26mark-y%3D112%26blend64%3DaHR0cHM6Ly9xaWl0YS11c2VyLWNvbnRlbnRzLmltZ2l4Lm5ldC9-dGV4dD9peGxpYj1yYi00LjAuMCZ3PTYxNiZ0eHQ9JTQwc2FsdGNvb2t5JnR4dC1jb2xvcj0lMjMyMTIxMjEmdHh0LWZvbnQ9SGlyYWdpbm8lMjBTYW5zJTIwVzYmdHh0LXNpemU9MzYmdHh0LWFsaWduPWxlZnQlMkN0b3Amcz03ZWUzZjIxZTljNzA4YTY1NDQ3NTgyN2E1OWQwZmZlMQ%26blend-x%3D142%26blend-y%3D491%26blend-mode%3Dnormal%26s%3D46e29e2943e9377673463c7ca6fd72cc)