12 week

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 연관이 있다.