{"id":1979,"date":"2019-09-16T23:35:22","date_gmt":"2019-09-16T14:35:22","guid":{"rendered":"http:\/\/141.164.34.82\/?p=1979"},"modified":"2019-09-16T23:45:48","modified_gmt":"2019-09-16T14:45:48","slug":"%ed%94%bc%ec%b2%98-%ec%97%94%ec%a7%80%eb%8b%88%ec%96%b4%eb%a7%81-2","status":"publish","type":"post","link":"http:\/\/ds.sumeun.org\/?p=1979","title":{"rendered":"\ud53c\ucc98 \uc5d4\uc9c0\ub2c8\uc5b4\ub9c1 2"},"content":{"rendered":"

\uc0c8\ub85c\uc6b4 \ud53c\ucc98\ub97c \ub9cc\ub4dc\ub294 \uac83\uc774 \uc5b4\ub5bb\uac8c \uc88b\uc740 \uc608\uce21 \ubaa8\ud615\uc744 \ub9cc\ub4dc\ub294\ub370 \ub3c4\uc6c0\uc774 \ub418\ub294\uac00?<\/h2>\n

\ub2e4\uc74c\uc758 R \ucf54\ub4dc\ub294 \ub370\uc774\ud130 dat<\/code>\ub97c \uc0dd\uc131\ud55c\ub2e4. \uc774\ub54c \uc124\uba85\ubcc0\uc218\ub294 x1<\/code>\uc5d0\uc11c x10<\/code>\uc740 \uc0c1\uad00\uad00\uacc4 0.1\uc778 \ud45c\uc900\uc815\uaddc\ubd84\ud3ec\ub97c \ub530\ub978\ub2e4. \uc2e4\uc81c \ub370\uc774\ud130\uc0dd\uc131\ubaa8\ud615\uc740 \ub2e4\uc74c\uacfc \uac19\ub2e4.<\/p>\n

\\[y = 3 + \\beta_1 x_1 + \\beta_2 x_2 + \\cdots + \\beta_{10} x_{10} + e,\\ \\ e \\sim \\mathcal{N}(0,1)\\]<\/p>\n

\uc815\ud655\ud55c \ubaa8\ud615\uc744 \uc54c\uace0 \uc788\ub2e4\uba74 \uc790\ub8cc\ub97c \ubaa8\ud615\uc5d0 \uc801\ud569\ud558\uc5ec \ubaa8\uc218( \\(\\beta_1, \\beta_2, \\cdots\\) )\uc744 \ucd94\uc815\ud558\uba74 \ub41c\ub2e4. \ud558\uc9c0\ub9cc \ubb38\uc81c\uac00 \uc788\ub2e4. \ubaa8\uc218\uc758 \uac2f\uc218<\/strong>\uac00 \ub298\uc5b4\ub0a0 \uc218\ub85d \ubaa8\uc218\ub97c \uc815\ud655\ud558\uac8c \ucd94\uc815\ud558\uae30 \uc704\ud574 \ud544\uc694\ud55c \ud45c\ubcf8\uc758 \ud06c\uae30<\/strong>\ub3c4 \uc99d\uac00\ud55c\ub2e4. \uc544\ub798\uc5d0\uc11c \ud45c\ubcf8\uc758 \ud06c\uae30(N<\/code>)\ub294 20\uc774\ub2e4.<\/p>\n

library(data.table)\nlibrary(dplyr)\nlibrary(ggplot2)\nN <- 20\nncolMatX <- 11\n\nsigma.cor = 0.1\n\nlibrary(mvtnorm)\nsigma <- matrix(\n  sigma.cor,\n  ncolMatX, ncolMatX)\ndiag(sigma) = 1\n\nmatX <- rmvnorm(N, mean=rep(0,ncolMatX), sigma=sigma)\ncolnames(matX) <- c(paste0("x", 1:10), "e")\nX <- data.table(matX)\n\nparamTrue <- c(3, rnorm(5,1,0.2),\n               rnorm(5,-1.4,0.2))\nnames(paramTrue) <- paste0("beta", 0:10)\n\nlv <- X[, .(f1 = paramTrue['beta1']*x1 + \n              paramTrue['beta2']*x2 + \n              paramTrue['beta3']*x3 + \n              paramTrue['beta4']*x4 + \n              paramTrue['beta5']*x5,\n            f2 = paramTrue['beta6']*x6 + \n              paramTrue['beta7']*x7 + \n              paramTrue['beta8']*x8 + \n              paramTrue['beta9']*x9 + \n              paramTrue['beta10']*x10)]\n\ny <- 3 + lv$f1 + lv$f2 + X$e\n\ndfParamTrue <- data.frame(key=factor(names(paramTrue), \n                                     levels= paste0("beta", 0:10)),\n                          value=paramTrue)\n\ndat <- data.table(X,y)\n<\/code><\/pre>\n
\uc0c8\ub85c\uc6b4 \ud53c\ucc98\ub97c \uc0ac\uc6a9\ud55c \uac04\ub2e8\ud55c \uc694\uc778 \ubaa8\ud615<\/h2>\n
\uc774\ub54c \\(\\beta_1, \\beta_2, \\beta_3, \\beta_4, \\beta_5\\) \uac00 \ubaa8\ub450 \\(\\textrm{Unif}(.8, 1.2)\\) \uc758 \ubd84\ud3ec\ub97c \ub530\ub974\uba74 \\(\\beta_6, \\beta_7, \\beta_8, \\beta_9, \\beta_{10}\\) \ub294 \\(\\textrm{Unif}(-1.2,-1.6)\\) \uc758 \ubd84\ud3ec\ub97c \ub530\ub978\ub2e4\uba74 \uc774\ub7f0 \uc0ac\uc2e4 \ud65c\uc6a9\ud560 \uc218 \uc5c6\uc744\uae4c?<\/p>\n
\\(f_1 = x_1 + x_2 + x_3 + x_4 + x_5\\) , \\(f_6 = x_6 + x_7 + x_8 + x_9 + x_{10}\\) \uc73c\ub85c \ub193\uace0, \ub2e4\uc74c\uc758 \ubaa8\ud615\uc5d0 \uc801\ud569\uc744 \uc2dc\ud0a8\ub2e4\uba74 \ucd94\uc815\ud574\uc57c \ud560 \ubaa8\uc218\uac00 3\uac1c\ub85c \uc904\uc5b4\ub4e0\ub2e4. (\uc774 \ubaa8\ud615\uc740 \ucc38 \ubaa8\ud615\uc744 \uadf8\ub300\ub85c \ubc18\uc601\ud560 \uc218 \uc5c6\ub2e4\ub294 \ub2e8\uc810\uc774 \uc788\uc9c0\ub9cc, \ubaa8\uc218\uc758 \ucd94\uc815\uc774 \uc815\ud655\ud558\ub2e4\ub294 \uc7a5\uc810\uc774 \uc788\ub294 \uac83\uc774\ub2e4.)[1]<\/sup><\/p>\n
[1]:<\/sup> \ubcf4\ud1b5 \uc694\uc778 \ubaa8\ud615\uc740 \\(x_1 = \\lambda_{11}f_1 + \\lambda_{12}f_2 + \\cdots + e_1\\) \uacfc \uac19\uc740 \ubaa8\ud615\uc744 \ub530\ub974\uc9c0\ub9cc, \uc5ec\uae30\uc11c\ub294 \ud3b8\uc758\uc0c1 \\(f_1 = x_1 + x_2 + \\cdots\\) \ub97c \uc694\uc778<\/strong>\uc73c\ub85c \uce6d\ud558\uc600\ub2e4. <\/p>\n
\\[y= \\beta_0 + \\beta_1 f_1 + \\beta_2 f_2 + e,\\ \\ e \\sim \\mathcal{N}(0,1)\\]<\/p>\n
dat2 <- X[, .(f1= x1+x2+x3+x4+x5, \n              f2= x6+x7+x8+x9+x10,\n              y = y)]\n<\/code><\/pre>\n
\ub450 \uc608\uce21 \ubaa8\ud615\uc5d0 \ub300\ud55c \uc131\ub2a5\uc744 \ube44\uad50\ud574\ubcf4\uba74 \ub2e4\uc74c\uacfc \uac19\ub2e4. <\/p>\n
fit <- lm(y ~ . -e , dat)\nfit2 <- lm(y ~ . , dat2)\ncat('full linear model\\n')\nsummary(fit)\ncat('factor model\\n')\nsummary(fit2)\n<\/code><\/pre>\n
## full linear model\n## \n## Call:\n## lm(formula = y ~ . - e, data = dat)\n## \n## Residuals:\n##      Min       1Q   Median       3Q      Max \n## -1.35839 -0.09420  0.08033  0.31608  0.93411 \n## \n## Coefficients:\n##             Estimate Std. Error t value Pr(>|t|)    \n## (Intercept)   2.8314     0.2130  13.295 3.20e-07 ***\n## x1            1.0266     0.2015   5.096 0.000649 ***\n## x2            1.2273     0.2966   4.139 0.002527 ** \n## x3            0.5391     0.2200   2.450 0.036760 *  \n## x4            0.9642     0.1642   5.873 0.000237 ***\n## x5            1.2303     0.2542   4.839 0.000922 ***\n## x6           -1.3273     0.1842  -7.208 5.04e-05 ***\n## x7           -0.7502     0.2831  -2.650 0.026482 *  \n## x8           -0.6236     0.3695  -1.688 0.125750    \n## x9           -1.6515     0.2767  -5.969 0.000210 ***\n## x10          -1.2082     0.2135  -5.658 0.000310 ***\n## ---\n## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1\n## \n## Residual standard error: 0.8244 on 9 degrees of freedom\n## Multiple R-squared:  0.9726, Adjusted R-squared:  0.9422 \n## F-statistic: 31.96 on 10 and 9 DF,  p-value: 8.075e-06\n## \n## factor model\n## \n## Call:\n## lm(formula = y ~ ., data = dat2)\n## \n## Residuals:\n##     Min      1Q  Median      3Q     Max \n## -2.4114 -0.7692  0.1067  0.7091  1.9319 \n## \n## Coefficients:\n##             Estimate Std. Error t value Pr(>|t|)    \n## (Intercept)  2.97574    0.27035  11.007 3.73e-09 ***\n## f1           0.94914    0.09844   9.642 2.64e-08 ***\n## f2          -1.22655    0.12202 -10.052 1.43e-08 ***\n## ---\n## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1\n## \n## Residual standard error: 1.151 on 17 degrees of freedom\n## Multiple R-squared:  0.8992, Adjusted R-squared:  0.8874 \n## F-statistic: 75.84 on 2 and 17 DF,  p-value: 3.378e-09\n<\/pre>\n
\uc77c\ubc18\ud654 \uc131\ub2a5<\/h2>\n
\uae30\uc874\uc758 \ub370\uc774\ud130\ub97c \uc801\ud569\ud558\ub294 \ub2a5\ub825\uc740 x1<\/code>~x10<\/code>\uc744 \ubaa8\ub450 \uc0ac\uc6a9\ud558\ub294 \uac83\uc774 \uc88b\ub2e4. \ud558\uc9c0\ub9cc \ub2e4\uc74c\uc758 \uacb0\uacfc\uc5d0\uc11c \ubcf4\ub4ef\uc774 \uc0c8\ub85c\uc6b4 \ub370\uc774\ud130\uc5d0 \ub300\ud55c MSE\ub294 f1<\/code>\uacfc f2<\/code>\ub97c \ud65c\uc6a9\ud55c \ubaa8\ud615\uc774 \ub354 \uc88b\ub2e4.  <\/p>\n
### NEW DATA\nN <- 100\nncolMatX <- 11\nsigma <- matrix(\n  sigma.cor,\n  ncolMatX, ncolMatX)\ndiag(sigma) = 1\nmatX <- rmvnorm(N, mean=rep(0,ncolMatX), sigma=sigma)\ncolnames(matX) <- c(paste0("x", 1:10), "e")\nX <- data.table(matX)\n\nlv <- X[, .(f1 = paramTrue['beta1']*x1 + \n              paramTrue['beta2']*x2 + \n              paramTrue['beta3']*x3 + \n              paramTrue['beta4']*x4 + \n              paramTrue['beta5']*x5,\n            f2 = paramTrue['beta6']*x6 + \n              paramTrue['beta7']*x7 + \n              paramTrue['beta8']*x8 + \n              paramTrue['beta9']*x9 + \n              paramTrue['beta10']*x10)]\n\ny <- 3 + lv$f1 -lv$f2 + X$e\n\nnewdat <- data.table(X,y); #head(newdat)\nnewdat2 <- X[, .(f1= x1+x2+x3+x4+x5, \n              f2= x6+x7+x8+x9+x10,\n              y = y)]\n\ncat('MSE: full model\\n')\nprint(mean((predict(fit, newdat)- newdat$y)^2))\ncat('MSE: factor model\\n')\nprint(mean((predict(fit2, newdat2)-newdat2$y)^2))\n<\/code><\/pre>\n
## MSE: full model\n## [1] 49.39531\n## MSE: factor model\n## [1] 53.05298\n<\/pre>\n
\ub2e4\uc2dc \ub9d0\ud574 \ubaa8\ub4e0 \ubcc0\uc218\ub97c \uc0ac\uc6a9\ud55c \uc120\ud615 \ubaa8\ud615\uc740 \ubaa8\uc218\ub97c \uc815\ud655\ud558\uac8c \ucd94\uc815\ud560 \uc790\ub8cc\uac00 \ubd80\uc871\ud558\uae30 \ub54c\ubb38\uc5d0 \uacfc\uc801\ud569<\/strong>\ub418\uc5c8\uc73c\uba70, \uc0c8\ub85c\uc6b4 \ud53c\ucc98\ub97c \uc0dd\uc131\ud558\uc5ec \uc0ac\uc6a9\ud55c \ub450 \ubc88\uc9f8 \ubaa8\ud615\uc758 \uacbd\uc6b0, \ucc38 \ubaa8\ud615\uc744 \ud3ec\ud568\ud560 \uc218 \uc5c6\uc74c\uc5d0\ub3c4 \ubd88\uad6c\ud558\uc5ec \uc0ac\uc804\uc9c0\uc2dd\uc744 \ud65c\uc6a9\ud558\uc5ec \uc77c\ubc18\ud654\uac00 \ub354 \uc88b\uc740 \ubaa8\ud615\uc744 \ub9cc\ub4e4\uc5b4 \ub0b8 \uac83\uc774\ub2e4!<\/p>\n
\ubb3c\ub860 \ud45c\ubcf8 \ud06c\uae30(\uc790\ub8cc \uac2f\uc218)\uac00 \uc99d\uac00\ud568\uc5d0 \ub530\ub77c \ucc38\ubaa8\ud615\uc744 \ud3ec\ud568\ud558\ub294 full model<\/code>\uc758 \uc131\ub2a5\uc774 \ub098\uc544\uc9c0\uae30 \uc2dc\uc791\ud55c\ub2e4.<\/p>\n
\uc804\uccb4 \ubaa8\ud615\uacfc \uac04\ub2e8\ud55c \ubaa8\ud615\uc758 \ucc28\uc774<\/h2>\n
\ub2e4\uc74c \uc2dc\ubbac\ub808\uc774\uc158\uc744 \ud1b5\ud574 \ud45c\ubcf8\ud06c\uae30\uac00 \uc99d\uac00\ud568\uc5d0 \ub530\ub77c \uc804\uccb4 \ubaa8\ud615(full model<\/code>), \uc694\uc778 \ubaa8\ud615(factor model<\/code>), \uadf8\ub9ac\uace0 \ud3c9\uade0 \ubaa8\ud615( \\(y\\) \uc608\uce21\uac12\uc744 \ud45c\ubcf8\uc758 \\(y\\) \ud3c9\uade0\uc73c\ub85c \ud558\ub294 \ubaa8\ud615)\uc758 MSE\ub97c \ube44\uad50\ud55c \uadf8\ub798\ud504\uc774\ub2e4(\uadf8\ub798\ud504\uc758 y<\/code>\ub294 \uc0c8\ub85c\uc6b4 \uc790\ub8cc\uc5d0 \ub300\ud55c \uc608\uce21\uac12\uc758 MSE\uc774\ub2e4).<\/p>\n
\"plot<\/p>\n
\uc804\uccb4 \ubaa8\ud615\uacfc \uc694\uc778 \ubaa8\ud615\ub9cc\uc744 \ub530\ub85c \ub5bc\uc5b4 \ubcf4\uba74 \ub2e4\uc74c\uacfc \uac19\ub2e4. <\/p>\n
\"plot<\/p>\n
\uc704\uc758 \uadf8\ub798\ud504\ub97c \ubcf4\uba74 \ud45c\ubcf8\ud06c\uae30\uac00 60 \uc774\uc0c1\uc774 \ub418\uc5b4\uc57c \uc804\uccb4 \ubaa8\ud615\uc774 \uc694\uc778 \ubaa8\ud615\ubcf4\ub2e4 \uc131\ub2a5\uc774 \uc88b\uc544\uc9d0\uc744 \ud655\uc778\ud560 \uc218 \uc788\ub2e4. <\/p>\n
\uc774\ub54c \ud55c \uac00\uc9c0 \ub354 \ub208\uc5ec\uaca8 \ubcfc \uc810\uc774 \uc788\ub2e4. \ud45c\ubcf8 \ud06c\uae30\uac00 \uc791\uc740 \uacbd\uc6b0 \uc804\uccb4 \ubaa8\ud615 MSE\uc758 \ubd84\ud3ec\uac00 \uad49\uc7a5\ud788 \ub113\ub2e4\ub294 \uc810\uc774\ub2e4. \uc704\uc758 \uadf8\ub798\ud504\ub294 \uc0c8\ub85c\uc6b4 \uc790\ub8cc\ub97c \uc0ac\uc6a9\ud558\uc5ec MSE\ub97c \uad6c\ud588\uc9c0\ub9cc \ud559\uc2b5 \uc790\ub8cc\uac00 \ubd80\uc871\ud55c \uc0c1\ud669\uc5d0\uc11c CV(Cross Validation; \uad50\ucc28\uac80\uc99d)\ub97c \ud574\uc57c \ud560 \uacbd\uc6b0\uc5d0\ub294 \uc774\ub7f0 \uc810 \ub54c\ubb38\uc5d0 CV\uc758 \uacb0\uacfc\ub97c \uadf8\ub300\ub85c \ubbff\uae30 \ud798\ub4e4\ub2e4\ub294 \uc810\uc774\ub2e4.<\/strong><\/p>\n
\uc0c8\ub85c\uc6b4 \ud53c\ucc98\ub97c \uc0ac\uc6a9\ud55c \ub79c\ub364 \ud3ec\ub808\uc2a4\ud2b8<\/h2>\n
\ub2e4\uc74c \uadf8\ub798\ud504\ub294 \ub3d9\uc77c\ud55c \uc0c1\ud669\uc5d0\uc11c \uc801\ud569 \ubaa8\ud615\uc744 \uc120\ud615 \ubaa8\ud615\uc5d0\uc11c \ub79c\ub364\ud3ec\ub808\uc2a4\ud2b8\ub85c \ubc14\uafbc \uacb0\uacfc\uc774\ub2e4. <\/p>\n
\"plot<\/p>\n
\ub208\uc5ec\uaca8\ubcfc \uc810\uc740 \\(x1\\) ~ \\(x10\\) \uc744 \ubaa8\ub450 \uc124\uba85 \ubcc0\uc218\ub85c \uc0ac\uc6a9\ud55c \ub79c\ub364 \ud3ec\ub808\uc2a4\ud2b8\uc640 \\(f1\\) \uacfc \\(f2\\) \ub97c \uc0ac\uc6a9\ud55c \ub79c\ub364 \ud3ec\ub808\uc2a4\ud2b8 \uc0ac\uc774\uc758 MSE \ucc28\uc774\uac00 \ud45c\ubcf8\ud06c\uae30 100\uc5d0\uc11c\ub3c4 \ud06c\uac8c \ucc28\uc774\uac00 \ub09c\ub2e4\ub294 \uc810\uc774\ub2e4. \ud45c\ubcf8\ud06c\uae30\ub97c \ub354 \ub298\ub824\ubcf8 \uacb0\uacfc\ub294 \ub2e4\uc74c\uacfc \uac19\ub2e4. <\/p>\n
\"plot<\/p>\n
\ud6c8\ub828 \uc790\ub8cc\ub97c 1000,000(\ubc31\ub9cc\uac1c!<\/strong>)\ub97c \uc0ac\uc6a9\ud574\ub3c4 \uc774 \ucc28\uc774\ub294 \uc880 \ucc98\ub7fc \uc904\uc5b4\ub4e4\uc9c0 \uc54a\ub294\ub2e4! <\/p>\n
\uc120\ud615 \ubaa8\ud615\uacfc \ub79c\ub364\ud3ec\ub808\uc2a4\ud2b8\uac00 \uc694\uad6c\ud558\ub294 \ud6c8\ub824\uc790\ub8cc\uc758 \ud06c\uae30\ub97c \ube44\uad50\ud558\uae30 \uc704\ud574\uc11c\ub294 \ub2e4\uc74c\uc758 \uadf8\ub798\ud504\ub97c \ubcf4\uc790. <\/p>\n
\"plot<\/p>\n
\uc804\uccb4 \uc120\ud615 \ubaa8\ud615\uc758 \uacbd\uc6b0\uc5d0\ub294 \ud45c\ubcf8 \ud06c\uae30 1000\uc774 \ub418\uae30 \ud6e8\uc52c \uc804\uc5d0 \uc774\ub860\uc801 \ucd5c\uc800 MSE\uc778 1\uc5d0 \uadfc\uc811\ud558\uace0 \uc788\uc9c0\ub9cc \ub79c\ub364 \ud3ec\ub808\uc2a4\ud2b8\uc758 \uacbd\uc6b0\uc5d0\ub294 \uadf8\ub807\uc9c0 \ubabb\ud558\ub2e4\ub294 \uc810\uc744 \ud655\uc778\ud560 \uc218 \uc788\ub2e4.<\/p>\n
\uadf8 \uc774\uc720\ub294? \ub79c\ub364\ud3ec\ub808\uc2a4\ud2b8\uc758 \uc791\ub3d9 \ubc29\uc2dd\uc744 \uc774\ud574\ud55c\ub2e4\uba74 \ucd94\uce21\ud560 \uc218 \uc788\uc744 \uac83\uc774\ub2e4. <\/p>\n
[\ud78c\ud2b8]<\/strong>: \uc801\ud569\uc2dc\ud0a8 \uc120\ud615 \ubaa8\ud615 \ub610\ub294 \ub79c\ub364\ud3ec\ub808\uc2a4\ud2b8\uc5d0 ICEbox<\/code> \ub4f1\uc758 \ud328\ud0a4\uc9c0\ub97c \uc0ac\uc6a9\ud558\uc5ec \ubaa8\ud615\uc744 \uc774\ud574\ud574\ubcf4\uc790.<\/p>\n
\ub9c8\ubb34\ub9ac<\/h2>\n
\uc774 \uae00\uc5d0\uc11c\ub294 \uc774\ub860\uc801\uc73c\ub85c \ub4b7\ubc1b\uce68\ub418\ub294 \uc0c8\ub85c\uc6b4 \ud53c\ucc98\uac00 \uc5b4\ub5bb\uac8c \ubaa8\ud615\uc758 \uc131\ub2a5\uc744 \ub192\uc77c \uc218 \uc788\ub294\uc9c0 \ubcf4\uc558\ub2e4. \ud2b9\ud788 \ud6c8\ub828\uc790\ub8cc\uc758 \uc218\uac00 \uc801\uc744 \ub54c\uc5d0\ub294 \uc815\ud655\ud558\uc9c0 \uc54a\uc544\ub3c4 \ubaa8\ud615\uc758 \ubaa8\uc218 \ub610\ub294 \ubcf5\uc7a1\uc131\uc744 \uc904\uc5ec\uc8fc\ub294 \ubaa8\ud615\uc774 \uc77c\ubc18\ud654 \uc131\ub2a5\uc744 \ub192\uc774\ub294\ub370 \ub3c4\uc6c0\uc774 \ub428\uc744 \ubcf4\uc558\ub2e4<\/strong>.<\/p>\n
\uadf8\ub9ac\uace0 \uc801\uc740 \uc218\uc758 \ubaa8\uc218\ub97c \ud3ec\ud568\ud55c \ubaa8\ud615\uc744 \uc0ac\uc6a9\ud558\ud558\ub294 \uac83\uc774 \ubaa8\ud615\uc758 \uc131\ub2a5\uc744 \ucd94\uc815\ud558\ub294 \ub370\uc5d0\ub3c4 \ub3c4\uc6c0\uc774 \ub41c\ub2e4(CV\uc5d0\uc11c \uc5bb\uc740 \uac12\uc774 \ub354 \uc815\ud655\ud558\ub2e4).<\/p>\n","protected":false},"excerpt":{"rendered":"
\uc0c8\ub85c\uc6b4 \ud53c\ucc98\ub97c \ub9cc\ub4dc\ub294 \uac83\uc774 \uc5b4\ub5bb\uac8c \uc88b\uc740 \uc608\uce21 \ubaa8\ud615\uc744 \ub9cc\ub4dc\ub294\ub370 \ub3c4\uc6c0\uc774 \ub418\ub294\uac00? \ub2e4\uc74c\uc758 R \ucf54\ub4dc\ub294 \ub370\uc774\ud130 dat\ub97c \uc0dd\uc131\ud55c\ub2e4. \uc774\ub54c \uc124\uba85\ubcc0\uc218\ub294 x1\uc5d0\uc11c x10\uc740 \uc0c1\uad00\uad00\uacc4 0.1\uc778 \ud45c\uc900\uc815\uaddc\ubd84\ud3ec\ub97c \ub530\ub978\ub2e4. \uc2e4\uc81c \ub370\uc774\ud130\uc0dd\uc131\ubaa8\ud615\uc740 \ub2e4\uc74c\uacfc \uac19\ub2e4. \\[y = 3 + \\beta_1 x_1 + \\beta_2 x_2 + \\cdots + \\beta_{10} x_{10} + e,\\ \\ e \\sim \\mathcal{N}(0,1)\\] \uc815\ud655\ud55c \ubaa8\ud615\uc744 \uc54c\uace0 \uc788\ub2e4\uba74 \uc790\ub8cc\ub97c \ubaa8\ud615\uc5d0 […]<\/p>\n","protected":false},"author":1,"featured_media":1986,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":[],"categories":[390,146,319],"tags":[389,368,321,388,387],"jetpack_featured_media_url":"http:\/\/ds.sumeun.org\/wp-content\/uploads\/2019\/09\/featureEngineering_lm_rf.png","_links":{"self":[{"href":"http:\/\/ds.sumeun.org\/index.php?rest_route=\/wp\/v2\/posts\/1979"}],"collection":[{"href":"http:\/\/ds.sumeun.org\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/ds.sumeun.org\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/ds.sumeun.org\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/ds.sumeun.org\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=1979"}],"version-history":[{"count":8,"href":"http:\/\/ds.sumeun.org\/index.php?rest_route=\/wp\/v2\/posts\/1979\/revisions"}],"predecessor-version":[{"id":1988,"href":"http:\/\/ds.sumeun.org\/index.php?rest_route=\/wp\/v2\/posts\/1979\/revisions\/1988"}],"wp:featuredmedia":[{"embeddable":true,"href":"http:\/\/ds.sumeun.org\/index.php?rest_route=\/wp\/v2\/media\/1986"}],"wp:attachment":[{"href":"http:\/\/ds.sumeun.org\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=1979"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/ds.sumeun.org\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=1979"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/ds.sumeun.org\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=1979"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}