====== 12 week ======
  * [[:anova]]
  * [[:regression]]
  * [[:multiple regression]] egs. 
    * [[:r:multiple regression]]
    * [[:partial and semipartial correlation]]
    * [[:statistical regression methods]]
    * [[:sequential regression]]
  * [[:r:path_analysis]]
  * [[:factor analysis]] egs.
    * <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>