- Drivers?
- What is under Managerial/corporate control?
- Simple vs. complicated?
November 9, 2015
Enterprise Industries, owners of Fresh Detergent, want to predict demand for their product. In this case, the product is an extra large bottle of Fresh liquid detergent. Given a model for demand, Enterprise can:
Four indicators for 30 sales periods (4 weeks):
## Fresh.Demand Fresh.Price Industry.Price Advertising.Spending ## 1 7.38 3.85 3.80 5.50 ## 2 8.51 3.75 4.00 6.75 ## 3 9.52 3.70 4.30 7.25 ## 4 7.50 3.70 3.70 5.50 ## 5 9.33 3.60 3.85 7.00 ## 6 8.28 3.60 3.80 6.50 ## 7 8.75 3.60 3.75 6.75 ## 8 7.87 3.80 3.85 5.25 ## 9 7.10 3.80 3.65 5.25 ## 10 8.00 3.85 4.00 6.00 ## 11 7.89 3.90 4.10 6.50 ## 12 8.15 3.90 4.00 6.25 ## 13 9.10 3.70 4.10 7.00 ## 14 8.86 3.75 4.20 6.90 ## 15 8.90 3.75 4.10 6.80 ## 16 8.87 3.80 4.10 6.80 ## 17 9.26 3.70 4.20 7.10 ## 18 9.00 3.80 4.30 7.00 ## 19 8.75 3.70 4.10 6.80 ## 20 7.95 3.80 3.75 6.50
| Mean | Std. Dev. | Minimum | Maximum | Atoms | |
|---|---|---|---|---|---|
| Fresh.Demand | 8.38 | 0.68 | 7.10 | 9.52 | 26.00 |
| Fresh.Price | 3.73 | 0.09 | 3.55 | 3.90 | 8.00 |
| Industry.Price | 3.95 | 0.22 | 3.65 | 4.30 | 11.00 |
| Advertising.Spending | 6.45 | 0.57 | 5.25 | 7.25 | 13.00 |
| Fresh.Demand | Fresh.Price | Industry.Price | Advertising.Spending | |
|---|---|---|---|---|
| Fresh.Demand | 1.00 | -0.47 | 0.74 | 0.88 |
| Fresh.Price | -0.47 | 1.00 | 0.08 | -0.47 |
| Industry.Price | 0.74 | 0.08 | 1.00 | 0.60 |
| Advertising.Spending | 0.88 | -0.47 | 0.60 | 1.00 |
Let's have a look at the 3-D.
scatter3d(Fresh.Demand~Advertising.Spending+Price.Difference, data=fresh.data, surface=FALSE, residuals=TRUE, bg="white", axis.scales=TRUE, grid=TRUE, ellipsoid=FALSE)
| Estimate | Std. Error | t value | Pr(>|t|) | |
|---|---|---|---|---|
| (Intercept) | 7.5891 | 2.4450 | 3.10 | 0.0046 |
| Fresh.Price | -2.3577 | 0.6379 | -3.70 | 0.0010 |
| Industry.Price | 1.6122 | 0.2954 | 5.46 | 0.0000 |
| Advertising.Spending | 0.5012 | 0.1259 | 3.98 | 0.0005 |
Conforms to intuition:
Constructing na"ive confidence intervals:
How could we test this?
| Estimate | Std. Error | t value | Pr(>|t|) | |
|---|---|---|---|---|
| (Intercept) | 4.4075 | 0.7223 | 6.10 | 0.0000 |
| Price.Difference | 1.5883 | 0.2994 | 5.30 | 0.0000 |
| Advertising.Spending | 0.5635 | 0.1191 | 4.73 | 0.0001 |
| Res.Df | RSS | Df | Sum of Sq | F | Pr(>F) | |
|---|---|---|---|---|---|---|
| 1 | 27 | 1.53 | ||||
| 2 | 26 | 1.43 | 1 | 0.10 | 1.85 | 0.1855 |