ä¿¡é ¼åŒºé–“ã®æ„味ã¨ã€Rã®predict()関数ã®ä½¿ã„æ–¹ã®æ³¨æ„点 - StatsBeginner: åˆå¦è€…ã®çµ±è¨ˆå¦ç¿’ãƒŽãƒ¼ãƒˆä¿¡é ¼åŒºé–“ã¨ã¯ãªã‚“ãžã‚„ã¨ã„ã†ã®ã‚’メモã—ã¦ãŠã“ã†ã¨æ€ã£ã¦ã€ç°¡å˜ãªãƒ‡ãƒ¼ã‚¿ã§å›žå¸°åˆ†æžã‚’è¡Œã£ã¦å›³ã‚’ã¤ãã‚ã†ã‹ã¨æ€ã£ãŸã‚‰ã€Rã®predict()関数ã®ä½¿ã„æ–¹ã«è½ã¨ã—ç©´ãŒã‚ã£ãŸã®ã§å¾©ç¿’ãŒã¦ã‚‰ãƒ¡ãƒ¢â€¦â€¦ã€‚ ã¨ã‚Šã‚ãˆãšå˜å›žå¸°åˆ†æžã™ã‚‹ Rã®ç·´ç¿’用データセット「carsã€ã‚’ã¤ã‹ã„ã¾ã™ã€‚*1 車ã®ã‚¹ãƒ”ードã¨åˆ¶å‹•è·é›¢ï¼ˆor åœæ¢è·é›¢ï¼‰ã§ã™ã‹ã。 > head(cars) # Rã®ç·´ç¿’用データセット「carsã€ã®ä¸èº« speed dist 1 4 2 2 4 10 3 7 4 4 7 22 5 8 16 6 9 10 相関係数ã¨æ•£å¸ƒå›³ã‚’ã¿ã¦ãŠãã¾ã™ã€‚ > cor(cars$speed, cars$dist) [1] 0.8068949 > plot(cars) ã¨ã‚Šã‚ãˆãšå›žå¸°åˆ†æžã—ã¾ã™ã€‚ # lm()ã§å›žå¸°åˆ†æž > cars.lm <- lm(dist ~ speed, data=cars) > summary(car
{{#tags}}- {{label}}
{{/tags}}