Typeofputter <- c(rep(-1,7),rep(-1,7),rep(1,7),rep(1,7),rep(-1,7),rep(-1,7),rep(1,7),rep(1,7),rep(-1,7),rep(-1,7),rep(1,7),rep(1,7),rep(-1,7),rep(-1,7),rep(1,7),rep(1,7))
LengthofPutt <- c(rep(-1,7),rep(1,7),rep(-1,7),rep(1,7),rep(-1,7),rep(1,7),rep(-1,7),rep(1,7),rep(-1,7),rep(1,7),rep(-1,7),rep(1,7),rep(-1,7),rep(1,7),rep(-1,7),rep(1,7))
Slopeofputt <- c(rep(-1,7),rep(-1,7),rep(-1,7),rep(-1,7),rep(-1,7),rep(-1,7),rep(-1,7),rep(-1,7),rep(1,7),rep(1,7),rep(1,7),rep(1,7),rep(1,7),rep(1,7),rep(1,7),rep(1,7))
Breakofputt <- c(rep(-1,7),rep(-1,7),rep(-1,7),rep(-1,7),rep(1,7),rep(1,7),rep(1,7),rep(1,7),rep(-1,7),rep(-1,7),rep(-1,7),rep(-1,7),rep(1,7),rep(1,7),rep(1,7),rep(1,7))
Block <- c(rep(1,16),rep(2,16),rep(3,16),rep(4,16),rep(5,16),rep(6,16),rep(7,16))
DistancefromCup <- c(10,18,14,12.5,19,16,18.5, 0,16.5,4.5,17.5,20.5,17.5,33, 4,6,1,14.5,12,14,5, 0,10,34,11,25.5,21.5,0, 0,0,18.5,19.5,16,15,11, 5,20.5,18,20,29.5,19,10, 6.5,18.5,7.5,6,0,10,0, 16.5,4.5,0,23.5,8,8,8, 4.5,18,14.5,10,0,17.5,6, 19.5,18,16,5.5,10,7,36, 15,16,8.5,0,0.5,9,3, 41.5,39,6.5,3.5,7,8.5,36, 8,4.5,6.5,10,13,41,14, 21.5,10.5,6.5,0,15.5,24,16, 0,0,0,4.5,1,4,6.5, 18,5,7,10,32.5,18.5,8)
Typeofputter <- as.fixed(Typeofputter)
LengthofPutt <- as.fixed(LengthofPutt)
Slopeofputt <- as.fixed(Slopeofputt)
Breakofputt <- as.fixed(Breakofputt)
Block <-as.random(Block)
Dat <- data.frame(LengthofPutt, Typeofputter, Breakofputt, Slopeofputt, DistancefromCup, Block)
Dat## LengthofPutt Typeofputter Breakofputt Slopeofputt DistancefromCup Block
## 1 -1 -1 -1 -1 10.0 1
## 2 -1 -1 -1 -1 18.0 1
## 3 -1 -1 -1 -1 14.0 1
## 4 -1 -1 -1 -1 12.5 1
## 5 -1 -1 -1 -1 19.0 1
## 6 -1 -1 -1 -1 16.0 1
## 7 -1 -1 -1 -1 18.5 1
## 8 1 -1 -1 -1 0.0 1
## 9 1 -1 -1 -1 16.5 1
## 10 1 -1 -1 -1 4.5 1
## 11 1 -1 -1 -1 17.5 1
## 12 1 -1 -1 -1 20.5 1
## 13 1 -1 -1 -1 17.5 1
## 14 1 -1 -1 -1 33.0 1
## 15 -1 1 -1 -1 4.0 1
## 16 -1 1 -1 -1 6.0 1
## 17 -1 1 -1 -1 1.0 2
## 18 -1 1 -1 -1 14.5 2
## 19 -1 1 -1 -1 12.0 2
## 20 -1 1 -1 -1 14.0 2
## 21 -1 1 -1 -1 5.0 2
## 22 1 1 -1 -1 0.0 2
## 23 1 1 -1 -1 10.0 2
## 24 1 1 -1 -1 34.0 2
## 25 1 1 -1 -1 11.0 2
## 26 1 1 -1 -1 25.5 2
## 27 1 1 -1 -1 21.5 2
## 28 1 1 -1 -1 0.0 2
## 29 -1 -1 1 -1 0.0 2
## 30 -1 -1 1 -1 0.0 2
## 31 -1 -1 1 -1 18.5 2
## 32 -1 -1 1 -1 19.5 2
## 33 -1 -1 1 -1 16.0 3
## 34 -1 -1 1 -1 15.0 3
## 35 -1 -1 1 -1 11.0 3
## 36 1 -1 1 -1 5.0 3
## 37 1 -1 1 -1 20.5 3
## 38 1 -1 1 -1 18.0 3
## 39 1 -1 1 -1 20.0 3
## 40 1 -1 1 -1 29.5 3
## 41 1 -1 1 -1 19.0 3
## 42 1 -1 1 -1 10.0 3
## 43 -1 1 1 -1 6.5 3
## 44 -1 1 1 -1 18.5 3
## 45 -1 1 1 -1 7.5 3
## 46 -1 1 1 -1 6.0 3
## 47 -1 1 1 -1 0.0 3
## 48 -1 1 1 -1 10.0 3
## 49 -1 1 1 -1 0.0 4
## 50 1 1 1 -1 16.5 4
## 51 1 1 1 -1 4.5 4
## 52 1 1 1 -1 0.0 4
## 53 1 1 1 -1 23.5 4
## 54 1 1 1 -1 8.0 4
## 55 1 1 1 -1 8.0 4
## 56 1 1 1 -1 8.0 4
## 57 -1 -1 -1 1 4.5 4
## 58 -1 -1 -1 1 18.0 4
## 59 -1 -1 -1 1 14.5 4
## 60 -1 -1 -1 1 10.0 4
## 61 -1 -1 -1 1 0.0 4
## 62 -1 -1 -1 1 17.5 4
## 63 -1 -1 -1 1 6.0 4
## 64 1 -1 -1 1 19.5 4
## 65 1 -1 -1 1 18.0 5
## 66 1 -1 -1 1 16.0 5
## 67 1 -1 -1 1 5.5 5
## 68 1 -1 -1 1 10.0 5
## 69 1 -1 -1 1 7.0 5
## 70 1 -1 -1 1 36.0 5
## 71 -1 1 -1 1 15.0 5
## 72 -1 1 -1 1 16.0 5
## 73 -1 1 -1 1 8.5 5
## 74 -1 1 -1 1 0.0 5
## 75 -1 1 -1 1 0.5 5
## 76 -1 1 -1 1 9.0 5
## 77 -1 1 -1 1 3.0 5
## 78 1 1 -1 1 41.5 5
## 79 1 1 -1 1 39.0 5
## 80 1 1 -1 1 6.5 5
## 81 1 1 -1 1 3.5 6
## 82 1 1 -1 1 7.0 6
## 83 1 1 -1 1 8.5 6
## 84 1 1 -1 1 36.0 6
## 85 -1 -1 1 1 8.0 6
## 86 -1 -1 1 1 4.5 6
## 87 -1 -1 1 1 6.5 6
## 88 -1 -1 1 1 10.0 6
## 89 -1 -1 1 1 13.0 6
## 90 -1 -1 1 1 41.0 6
## 91 -1 -1 1 1 14.0 6
## 92 1 -1 1 1 21.5 6
## 93 1 -1 1 1 10.5 6
## 94 1 -1 1 1 6.5 6
## 95 1 -1 1 1 0.0 6
## 96 1 -1 1 1 15.5 6
## 97 1 -1 1 1 24.0 7
## 98 1 -1 1 1 16.0 7
## 99 -1 1 1 1 0.0 7
## 100 -1 1 1 1 0.0 7
## 101 -1 1 1 1 0.0 7
## 102 -1 1 1 1 4.5 7
## 103 -1 1 1 1 1.0 7
## 104 -1 1 1 1 4.0 7
## 105 -1 1 1 1 6.5 7
## 106 1 1 1 1 18.0 7
## 107 1 1 1 1 5.0 7
## 108 1 1 1 1 7.0 7
## 109 1 1 1 1 10.0 7
## 110 1 1 1 1 32.5 7
## 111 1 1 1 1 18.5 7
## 112 1 1 1 1 8.0 7Dat.Model7.12 <- lm(DistancefromCup~LengthofPutt*Typeofputter*Breakofputt*Slopeofputt+Block, data = Dat)
Dat.Model7.12a <- aov(Dat.Model7.12)
summary(Dat.Model7.12a)## Df Sum Sq Mean Sq F value
## LengthofPutt 1 917 917.1 10.769
## Typeofputter 1 388 388.1 4.558
## Breakofputt 1 145 145.1 1.704
## Slopeofputt 1 1 1.4 0.016
## Block 6 189 31.5 0.370
## LengthofPutt:Typeofputter 1 544 544.4 6.393
## LengthofPutt:Breakofputt 1 3 2.6 0.031
## Typeofputter:Breakofputt 1 58 58.4 0.686
## LengthofPutt:Slopeofputt 1 44 44.0 0.517
## Typeofputter:Slopeofputt 1 30 29.9 0.351
## Breakofputt:Slopeofputt 1 97 96.7 1.136
## LengthofPutt:Typeofputter:Breakofputt 1 2 2.0 0.023
## LengthofPutt:Typeofputter:Slopeofputt 1 151 150.7 1.770
## LengthofPutt:Breakofputt:Slopeofputt 1 44 44.4 0.521
## Typeofputter:Breakofputt:Slopeofputt 1 275 274.9 3.227
## LengthofPutt:Typeofputter:Breakofputt:Slopeofputt 1 0 0.5 0.006
## Residuals 90 7665 85.2
## Pr(>F)
## LengthofPutt 0.00147 **
## Typeofputter 0.03549 *
## Breakofputt 0.19505
## Slopeofputt 0.89844
## Block 0.89608
## LengthofPutt:Typeofputter 0.01320 *
## LengthofPutt:Breakofputt 0.86151
## Typeofputter:Breakofputt 0.40981
## LengthofPutt:Slopeofputt 0.47412
## Typeofputter:Slopeofputt 0.55511
## Breakofputt:Slopeofputt 0.28944
## LengthofPutt:Typeofputter:Breakofputt 0.87938
## LengthofPutt:Typeofputter:Slopeofputt 0.18679
## LengthofPutt:Breakofputt:Slopeofputt 0.47210
## Typeofputter:Breakofputt:Slopeofputt 0.07577 .
## LengthofPutt:Typeofputter:Breakofputt:Slopeofputt 0.94022
## Residuals
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1Dat.Model7.12b <- lm(DistancefromCup~LengthofPutt+Typeofputter+Block, data = Dat)
Dat.Model7.12c <- aov(Dat.Model7.12b)
summary(Dat.Model7.12c)## Df Sum Sq Mean Sq F value Pr(>F)
## LengthofPutt 1 917 917.1 10.504 0.0016 **
## Typeofputter 1 388 388.1 4.446 0.0374 *
## Block 6 256 42.6 0.488 0.8157
## Residuals 103 8993 87.3
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1