Replace with Main Title

Your Name

2013-11-22

> load("C:/Users/Dave/Dropbox/Webs/methods8/DataFiles/Add.dat")

Warning: file 'Add.dat' has magic number 'CaseN'
  Use of save versions prior to 2 is deprecated

Error: bad restore file magic number (file may be corrupted) -- no data
loaded

> load("C:/Users/Dave/AppData/Local/Temp/RtmpEZU5Vb/Dataset")

> Dataset1 <- read.table("C:/Users/Dave/Dropbox/Webs/methods8/DataFiles/Ex13-5.dat", 
+     header = TRUE, sep = "", na.strings = "NA", dec = ".", strip.white = TRUE)

> LinearModel.1 <- lm(Time ~ Area * Duration, data = Dataset1)
> summary(LinearModel.1)

Call:
lm(formula = Time ~ Area * Duration, data = Dataset1)

Residuals:
    Min      1Q  Median      3Q     Max 
-12.256  -4.222  -0.706   4.194  14.061 

Coefficients:
              Estimate Std. Error t value Pr(>|t|)    
(Intercept)      28.96       6.50    4.45  6.4e-05 ***
Area             -4.27       3.01   -1.42     0.16    
Duration          0.60       3.01    0.20     0.84    
Area:Duration     0.65       1.39    0.47     0.64    
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

Residual standard error: 6.23 on 41 degrees of freedom
Multiple R-squared:  0.193, Adjusted R-squared:  0.134 
F-statistic: 3.27 on 3 and 41 DF,  p-value: 0.0306

> LinearModel.2 <- lm(Time ~ Area * Duration, data = Dataset1)
> summary(LinearModel.2)

Call:
lm(formula = Time ~ Area * Duration, data = Dataset1)

Residuals:
    Min      1Q  Median      3Q     Max 
-12.256  -4.222  -0.706   4.194  14.061 

Coefficients:
              Estimate Std. Error t value Pr(>|t|)    
(Intercept)      28.96       6.50    4.45  6.4e-05 ***
Area             -4.27       3.01   -1.42     0.16    
Duration          0.60       3.01    0.20     0.84    
Area:Duration     0.65       1.39    0.47     0.64    
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

Residual standard error: 6.23 on 41 degrees of freedom
Multiple R-squared:  0.193, Adjusted R-squared:  0.134 
F-statistic: 3.27 on 3 and 41 DF,  p-value: 0.0306

> LinearModel.3 <- lm(Time ~ Area, data = Dataset1)
> summary(LinearModel.3)

Call:
lm(formula = Time ~ Area, data = Dataset1)

Residuals:
    Min      1Q  Median      3Q     Max 
-13.222  -4.189  -0.189   3.778  12.811 

Coefficients:
            Estimate Std. Error t value Pr(>|t|)    
(Intercept)    30.16       2.49   12.13  1.8e-15 ***
Area           -2.97       1.15   -2.58    0.013 *  
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

Residual standard error: 6.3 on 43 degrees of freedom
Multiple R-squared:  0.134, Adjusted R-squared:  0.114 
F-statistic: 6.65 on 1 and 43 DF,  p-value: 0.0134