R\uc5d0\uc11c \ud68c\uadc0\uc120\uc744 \ub9de\ucd94\uae30 \uc704\ud574 \ucd5c\uc18c \uc81c\uacf1\ubc95\uc744 \uc0ac\uc6a9\ud558\ub824\uba74 lm()<\/strong> \ud568\uc218\ub97c \uc0ac\uc6a9\ud560 \uc218 \uc788\uc2b5\ub2c8\ub2e4.<\/span><\/p>\n \uc774 \ud568\uc218\ub294 \ub2e4\uc74c \uae30\ubcf8 \uad6c\ubb38\uc744 \uc0ac\uc6a9\ud569\ub2c8\ub2e4.<\/span><\/p>\n \ub2e4\uc74c \uc608\uc5d0\uc11c\ub294 R\uc5d0\uc11c \uc774 \ud568\uc218\ub97c \uc0ac\uc6a9\ud558\ub294 \ubc29\ubc95\uc744 \ubcf4\uc5ec\uc90d\ub2c8\ub2e4.<\/span><\/p>\n \ud55c \ud559\uae09\uc5d0\uc11c 15\uba85\uc758 \ud559\uc0dd\uc5d0 \ub300\ud55c \uacf5\ubd80 \uc2dc\uac04\uacfc \ud574\ub2f9 \uc2dc\ud5d8 \uc810\uc218\ub97c \ubcf4\uc5ec\uc8fc\ub294 \ub2e4\uc74c\uacfc \uac19\uc740 \ub370\uc774\ud130 \ud504\ub808\uc784\uc774 R\uc5d0 \uc788\ub2e4\uace0 \uac00\uc815\ud569\ub2c8\ub2e4.<\/span><\/p>\n lm()<\/strong> \ud568\uc218\ub97c \uc0ac\uc6a9\ud558\uc5ec \ucd5c\uc18c \uc81c\uacf1\ubc95\uc744 \uc0ac\uc6a9\ud558\uc5ec \uc774 \ub370\uc774\ud130\uc5d0 \ud68c\uadc0\uc120\uc744 \ub9de\ucd9c \uc218 \uc788\uc2b5\ub2c8\ub2e4.<\/span><\/p>\n \ucd94\uc815<\/strong> \uacb0\uacfc \uc5f4\uc758 \uac12\uc5d0\uc11c \ub2e4\uc74c\uacfc \uac19\uc740 \uc801\ud569 \ud68c\uadc0\uc120\uc744 \uc791\uc131\ud560 \uc218 \uc788\uc2b5\ub2c8\ub2e4.<\/span><\/p>\n \uc2dc\ud5d8 \uc810\uc218 = 65.334 + 1.982(\uc2dc\uac04)<\/span><\/p>\n \ubaa8\ub378\uc758 \uac01 \uacc4\uc218\ub97c \ud574\uc11d\ud558\ub294 \ubc29\ubc95\uc740 \ub2e4\uc74c\uacfc \uac19\uc2b5\ub2c8\ub2e4.<\/span><\/p>\n \uc6b0\ub9ac\ub294 \uc774 \ubc29\uc815\uc2dd\uc744 \uc0ac\uc6a9\ud558\uc5ec \ud559\uc0dd\uc774 \uacf5\ubd80\ud55c \uc2dc\uac04\uc744 \uae30\uc900\uc73c\ub85c \ubc1b\uac8c \ub420 \uc2dc\ud5d8 \uc131\uc801\uc744 \ucd94\uc815\ud560 \uc218 \uc788\uc2b5\ub2c8\ub2e4.<\/span><\/p>\n \uc608\ub97c \ub4e4\uc5b4, \ud559\uc0dd\uc774 5\uc2dc\uac04 \ub3d9\uc548 \uacf5\ubd80\ud55c\ub2e4\uba74 \uc2dc\ud5d8 \uc810\uc218\ub294 75.244\uac00 \ub420 \uac83\uc73c\ub85c \ucd94\uc815\ub429\ub2c8\ub2e4.<\/span><\/p>\n \uc2dc\ud5d8 \uc810\uc218 = 65.334 + 1.982(5) = 75.244<\/span><\/p>\n \ub9c8\uc9c0\ub9c9\uc73c\ub85c, \ud50c\ub86f\uc5d0 \uacb9\uccd0\uc9c4 \uc801\ud569 \ud68c\uadc0\uc120\uc744 \uc0ac\uc6a9\ud558\uc5ec \uc6d0\ubcf8 \ub370\uc774\ud130\uc758 \uc0b0\uc810\ub3c4\ub97c \ub9cc\ub4e4 \uc218 \uc788\uc2b5\ub2c8\ub2e4.<\/span> <\/p>\n \ud30c\ub780\uc0c9 \uc6d0\uc740 \ub370\uc774\ud130\ub97c \ub098\ud0c0\ub0b4\uace0 \uac80\uc740\uc0c9 \uc120\uc740 \uc801\ud569 \ud68c\uadc0\uc120\uc744 \ub098\ud0c0\ub0c5\ub2c8\ub2e4.<\/span><\/p>\n \ub2e4\uc74c \ud29c\ud1a0\ub9ac\uc5bc\uc5d0\uc11c\ub294 R\uc5d0\uc11c \ub2e4\ub978 \uc77c\ubc18\uc801\uc778 \uc791\uc5c5\uc744 \uc218\ud589\ud558\ub294 \ubc29\ubc95\uc744 \uc124\uba85\ud569\ub2c8\ub2e4.<\/span><\/p>\n R\uc5d0\uc11c \uc794\ucc28 \ud50c\ub86f\uc744 \ub9cc\ub4dc\ub294 \ubc29\ubc95<\/a> \ucd5c\uc18c \uc81c\uacf1\ubc95\uc740 \uc8fc\uc5b4\uc9c4 \ub370\uc774\ud130 \uc9d1\ud569\uc5d0 \uac00\uc7a5 \uc798 \ub9de\ub294 \ud68c\uadc0\uc120\uc744 \ucc3e\ub294 \ub370 \uc0ac\uc6a9\ud560 \uc218 \uc788\ub294 \ubc29\ubc95\uc785\ub2c8\ub2e4. R\uc5d0\uc11c \ud68c\uadc0\uc120\uc744 \ub9de\ucd94\uae30 \uc704\ud574 \ucd5c\uc18c \uc81c\uacf1\ubc95\uc744 \uc0ac\uc6a9\ud558\ub824\uba74 lm() \ud568\uc218\ub97c \uc0ac\uc6a9\ud560 \uc218 \uc788\uc2b5\ub2c8\ub2e4. \uc774 \ud568\uc218\ub294 \ub2e4\uc74c \uae30\ubcf8 \uad6c\ubb38\uc744 \uc0ac\uc6a9\ud569\ub2c8\ub2e4. model <- lm(response ~ predictor, data=df) \ub2e4\uc74c \uc608\uc5d0\uc11c\ub294 R\uc5d0\uc11c \uc774 \ud568\uc218\ub97c \uc0ac\uc6a9\ud558\ub294 \ubc29\ubc95\uc744 \ubcf4\uc5ec\uc90d\ub2c8\ub2e4. \uc608: R\uc758 \ucd5c\uc18c \uc81c\uacf1\ubc95 \ud55c \ud559\uae09\uc5d0\uc11c 15\uba85\uc758 \ud559\uc0dd\uc5d0 […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[20],"tags":[],"class_list":["post-3905","post","type-post","status-publish","format-standard","hentry","category-20"],"yoast_head":"\n model <- lm(response ~ predictor, data=df)\n<\/strong><\/pre>\n
\uc608: R\uc758 \ucd5c\uc18c \uc81c\uacf1\ubc95<\/strong><\/span><\/h2>\n
#create data frame\n<\/span>df <- data. frame<\/span> (hours=c(1, 2, 4, 5, 5, 6, 6, 7, 8, 10, 11, 11, 12, 12, 14),\n score=c(64, 66, 76, 73, 74, 81, 83, 82, 80, 88, 84, 82, 91, 93, 89))\n\n#view first six rows of data frame\n<\/span>head(df)\n\n hours score\n1 1 64\n2 2 66\n3 4 76\n4 5 73\n5 5 74\n6 6 81\n<\/strong><\/pre>\n #use method of least squares to fit regression line\n<\/span>model <- lm(score ~ hours, data=df)\n\n#view regression model summary<\/span>\nsummary(model)\n\nCall:\nlm(formula = score ~ hours, data = df)\n\nResiduals:\n Min 1Q Median 3Q Max \n-5,140 -3,219 -1,193 2,816 5,772 \n\nCoefficients:\n Estimate Std. Error t value Pr(>|t|) \n(Intercept) 65,334 2,106 31,023 1.41e-13 ***\nhours 1.982 0.248 7.995 2.25e-06 ***\n---\nSignificant. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1\n\nResidual standard error: 3.641 on 13 degrees of freedom\nMultiple R-squared: 0.831, Adjusted R-squared: 0.818 \nF-statistic: 63.91 on 1 and 13 DF, p-value: 2.253e-06\n<\/strong><\/pre>\n\n
#create scatter plot of data\n<\/span>plot(df$hours, df$score, pch=16, col=' steelblue<\/span> ')\n\n#add fitted regression line to scatter plot\n<\/span>abline(model)\n<\/strong><\/pre>\n![\"\"](\"https:\/\/statorials.org\/wp-content\/uploads\/2023\/08\/methode1.jpg\")
<\/p>\n \ucd94\uac00 \ub9ac\uc18c\uc2a4<\/span><\/strong><\/h2>\n
R\uc5d0\uc11c \ub2e4\uc911 \uacf5\uc120\uc131\uc744 \ud14c\uc2a4\ud2b8\ud558\ub294 \ubc29\ubc95<\/a>
R\uc5d0\uc11c \uace1\uc120 \ud53c\ud305\uc744 \uc218\ud589\ud558\ub294 \ubc29\ubc95<\/a><\/p>\n","protected":false},"excerpt":{"rendered":"