HW3 - HW3.html setwd\"~\/Desktop\/Econ 404 oj = read.csv\"oj.csv library(ggplot2

HW3 - HW3.html setwd"~/Desktop/Econ 404 oj =...

This preview shows page 1 - 3 out of 6 pages.

4/19/2017HW3.html1/6setwd("~/Desktop/Econ 404") oj = read.csv("oj.csv") library(ggplot2) names(oj)## [1] "store" "brand" "week" "logmove" "feat" "price" ## [7] "AGE60" "EDUC" "ETHNIC" "INCOME" "HHLARGE" "WORKWOM" ## [13] "HVAL150" "SSTRDIST" "SSTRVOL" "CPDIST5" "CPWVOL5"reg=lm(formula = logmove ~ log(price) * brand * feat + AGE60 + EDUC + ETHNIC + INCOME + HHLARGE + WORKWOM + HVAL150 + SSTRDIST + SSTRVOL + CPDIST5 + CPWVOL5, data = oj) summary(reg)
Background image
4/19/2017HW3.html2/6## ## Call: ## lm(formula = logmove ~ log(price) * brand * feat + AGE60 + EDUC + ## ETHNIC + INCOME + HHLARGE + WORKWOM + HVAL150 + SSTRDIST + ## SSTRVOL + CPDIST5 + CPWVOL5, data = oj) ## ## Residuals: ## Min 1Q Median 3Q Max ## -5.2004 -0.3922 -0.0049 0.3786 2.9884 ## ## Coefficients: ## Estimate Std. Error t value Pr(>|t|) ## (Intercept) 13.143435 0.329622 39.874 < 2e-16 *** ## log(price) -2.854302 0.036816 -77.528 < 2e-16 *** ## brandminute.maid 0.092348 0.044158 2.091 0.03651 * ## brandtropicana 0.772280 0.048102 16.055 < 2e-16 *** ## feat 1.055010 0.036034 29.278 < 2e-16 *** ## AGE60 2.044239 0.127506 16.032 < 2e-16 *** ## EDUC 0.955931 0.101486 9.419 < 2e-16 *** ## ETHNIC 0.643102 0.037229 17.274 < 2e-16 *** ## INCOME -0.279937 0.033300 -8.406 < 2e-16 *** ## HHLARGE -0.920092 0.230509 -3.992 6.58e-05 *** ## WORKWOM -0.424559 0.146824 -2.892 0.00384 ** ## HVAL150 0.357561 0.041803 8.554 < 2e-16 *** ## SSTRDIST -0.019979 0.001465 -13.634 < 2e-16 *** ## SSTRVOL -0.055948 0.009768 -5.728 1.03e-08 *** ## CPDIST5 0.064160 0.006289 10.203 < 2e-16 *** ## CPWVOL5 -0.500272 0.025703 -19.464 < 2e-16 *** ## log(price):brandminute.maid 0.753984 0.058086 12.981 < 2e-16 *** ## log(price):brandtropicana 0.713983 0.053736 13.287 < 2e-16 *** ## log(price):feat -0.405049 0.070053 -5.782 7.45e-09 *** ## brandminute.maid:feat 1.131698 0.077495 14.603 < 2e-16 *** ## brandtropicana:feat 0.746656 0.093353 7.998 1.31e-15 *** ## log(price):brandminute.maid:feat -1.079118 0.115559 -9.338 < 2e-16 *** ## log(price):brandtropicana:feat -0.989109 0.117302 -8.432 < 2e-16 *** ## --- ## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1 ## ## Residual standard error: 0.6568 on 28924 degrees of freedom ## Multiple R-squared: 0.5851, Adjusted R-squared: 0.5848 ## F-statistic: 1854 on 22 and 28924 DF, p-value: < 2.2e-161bt>2 : AGE60 EDUC ETHNIC HVAL150 CPDIST5reg1=lm(formula = logmove ~ log(price) * brand * feat, data=oj) summary(reg1)
Background image
Image of page 3

You've reached the end of your free preview.

Want to read all 6 pages?

  • Left Quote Icon

    Student Picture

  • Left Quote Icon

    Student Picture

  • Left Quote Icon

    Student Picture

Stuck? We have tutors online 24/7 who can help you get unstuck.
A+ icon
Ask Expert Tutors You can ask You can ask You can ask (will expire )
Answers in as fast as 15 minutes