Differences

This shows you the differences between two versions of the page.

--- c:g:mrm:2022:week12 [2022/05/24 10:12] – hkimscil
+++ c:g:mrm:2022:week12 [2022/06/07 10:50] (current) – hkimscil
@@ Line 1: / Line 1: @@
 ====== 12 week ======
+  * [[:anova]]
+  * [[:regression]]
   * [[:multiple regression]] egs.
     * [[:r:multiple regression]]
@@ Line 5: / Line 7: @@
     * [[:statistical regression methods]]
     * [[:sequential regression]]
+  * [[:r:path_analysis]]
   * [[:factor analysis]] egs.
-    * [[:r:factor analysis]]
+    * <del>[[:r:factor analysis]]</del>
+<code>
+data("marketing", package = "datarium")
+# 위에서 data importing이 안되면 아래 스크립트를 사용
+marketing <- read.csv("http://commres.net/wiki/_media/marketing_from_datarium.csv")
+head(marketing, 4)
+length(marketing$sales)
+attach(marketing)
+# IV 3개로 multiple regression
+m.sa.all <- lm(sales~., data=marketing)
+summary(m.sa.all)
+# newspaper 영향력이 없다고 t-value, prb
+# m.sa.yt <- lm(sales~youtube, data=marketing)
+# m.sa.fb <- lm(sales~facebook, data=marketing)
+m.sa.np <- lm(sales~newspaper, data=marketing)
+# summary(m.sa.yt)
+# summary(m.sa.fb)
+summary(m.sa.np)
+# newspaper가 sales를 설명한다. 설명력이 있다.
+# 영향력이 있다. IV와 DV 연관이 있다.
+</code>