Differences

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

--- c:g:mrm:2022:week12 [2022/05/24 10:13] – hkimscil
+++ c:g:mrm:2022:week12 [2022/05/24 12:58] – hkimscil
@@ Line 10: / Line 10: @@
     * <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>