MPD dose dommer wheel and motion hourly post hoc
MPD1hourlyDW <- read.csv("~/Desktop/exp 2 posthochourDommerWheel.csv")
MPD1hourlyDW
## Group.1hDw Day.1hDw Data.1hDw Group.1.5hDw Day.1.5hDw Data.1.5hDw
## 1 Saline 1 8.787e-01 Saline 1 44.6164
## 2 Saline 1 2.154e+00 Saline 1 14.2185
## 3 Saline 1 0.000e+00 Saline 1 17.7200
## 4 Saline 2 8.787e-01 Saline 2 0.1646
## 5 Saline 2 0.000e+00 Saline 2 11.5525
## 6 Saline 2 3.576e+00 Saline 2 1.9204
## 7 Saline 3 1.757e+00 Saline 3 9.8782
## 8 Saline 3 0.000e+00 Saline 3 0.0000
## 9 Saline 3 0.000e+00 Saline 3 2.8806
## 10 2.5 mg/kg 1 0.000e+00 2.5 mg/kg 1 0.0000
## 11 2.5 mg/kg 1 5.958e+02 2.5 mg/kg 1 207.7834
## 12 2.5 mg/kg 1 4.574e+01 2.5 mg/kg 1 61.4836
## 13 2.5 mg/kg 2 0.000e+00 2.5 mg/kg 2 0.0000
## 14 2.5 mg/kg 2 1.978e+02 2.5 mg/kg 2 73.8548
## 15 2.5 mg/kg 2 1.548e-01 2.5 mg/kg 2 0.1304
## 16 2.5 mg/kg 3 0.000e+00 2.5 mg/kg 3 0.0000
## 17 2.5 mg/kg 3 1.223e+00 2.5 mg/kg 3 0.2911
## 18 2.5 mg/kg 3 2.252e+01 2.5 mg/kg 3 12.6533
## 19 5.0 mg/kg 1 1.655e+03 5.0 mg/kg 1 88.3929
## 20 5.0 mg/kg 1 1.751e+02 5.0 mg/kg 1 149.0271
## 21 5.0 mg/kg 1 5.263e+02 5.0 mg/kg 1 116.2791
## 22 5.0 mg/kg 2 0.000e+00 5.0 mg/kg 2 0.8929
## 23 5.0 mg/kg 2 1.526e+02 5.0 mg/kg 2 124.2288
## 24 5.0 mg/kg 2 2.439e+04 5.0 mg/kg 2 5430.2326
## 25 5.0 mg/kg 3 2.069e+02 5.0 mg/kg 3 10.7143
## 26 5.0 mg/kg 3 1.027e+02 5.0 mg/kg 3 75.2848
## 27 5.0 mg/kg 3 1.097e+04 5.0 mg/kg 3 2424.4186
## 28 10.0 mg/kg 1 2.420e+02 10.0 mg/kg 1 143.8979
## 29 10.0 mg/kg 1 4.731e+02 10.0 mg/kg 1 221.1459
## 30 10.0 mg/kg 1 2.212e+00 10.0 mg/kg 1 4.5187
## 31 10.0 mg/kg 2 0.000e+00 10.0 mg/kg 2 23.8748
## 32 10.0 mg/kg 2 9.673e+02 10.0 mg/kg 2 454.4518
## 33 10.0 mg/kg 2 6.350e+02 10.0 mg/kg 2 173.8703
## 34 10.0 mg/kg 3 1.408e+02 10.0 mg/kg 3 116.4166
## 35 10.0 mg/kg 3 1.036e+03 10.0 mg/kg 3 469.7032
## 36 10.0 mg/kg 3 5.509e+02 10.0 mg/kg 3 110.6090
## Group.2hDw Day.2hDw Data.2hDw
## 1 Saline 1 2.879e+01
## 2 Saline 1 2.512e+01
## 3 Saline 1 3.815e+01
## 4 Saline 2 9.258e-02
## 5 Saline 2 3.671e+01
## 6 Saline 2 1.656e+00
## 7 Saline 3 2.416e+01
## 8 Saline 3 1.094e+01
## 9 Saline 3 2.483e+00
## 10 2.5 mg/kg 1 0.000e+00
## 11 2.5 mg/kg 1 1.713e+02
## 12 2.5 mg/kg 1 6.587e+01
## 13 2.5 mg/kg 2 0.000e+00
## 14 2.5 mg/kg 2 7.679e+01
## 15 2.5 mg/kg 2 9.906e-02
## 16 2.5 mg/kg 3 0.000e+00
## 17 2.5 mg/kg 3 1.771e-01
## 18 2.5 mg/kg 3 9.608e+00
## 19 5.0 mg/kg 1 4.459e+01
## 20 5.0 mg/kg 1 1.512e+02
## 21 5.0 mg/kg 1 4.237e+01
## 22 5.0 mg/kg 2 1.351e+00
## 23 5.0 mg/kg 2 9.402e+01
## 24 5.0 mg/kg 2 2.006e+03
## 25 5.0 mg/kg 3 5.405e+00
## 26 5.0 mg/kg 3 5.420e+01
## 27 5.0 mg/kg 3 8.835e+02
## 28 10.0 mg/kg 1 1.459e+02
## 29 10.0 mg/kg 1 1.444e+02
## 30 10.0 mg/kg 1 4.231e+00
## 31 10.0 mg/kg 2 4.303e+01
## 32 10.0 mg/kg 2 3.791e+02
## 33 10.0 mg/kg 2 1.282e+02
## 34 10.0 mg/kg 3 9.927e+01
## 35 10.0 mg/kg 3 4.082e+02
## 36 10.0 mg/kg 3 7.443e+01
tapply(MPD1hourlyDW$Data.1hDw, MPD1hourlyDW$Group.1hDw, sd)
## 10.0 mg/kg 2.5 mg/kg 5.0 mg/kg Saline
## 386.915 198.099 8341.307 1.253
tapply(MPD1hourlyDW$Data.1hDw, MPD1hourlyDW$Day.1hDw, sd)
## 1 2 3
## 480 6998 3129
MPD1hourlyDW$Group.1hDw <- as.factor(MPD1hourlyDW$Group.1hDw)
MPD1hourlyDW$Day.1hDw <- as.factor(MPD1hourlyDW$Day.1hDw)
MPD1hourlyDW$Data.1hDw <- as.numeric(MPD1hourlyDW$Data.1hDw)
aov.MPD1hourlyDW = aov(Data.1hDw ~ Group.1hDw * Day.1hDw, data = MPD1hourlyDW)
summary(aov.MPD1hourlyDW)
## Df Sum Sq Mean Sq F value Pr(>F)
## Group.1hDw 3 1.12e+08 37438494 1.89 0.16
## Day.1hDw 2 2.16e+07 10783364 0.55 0.59
## Group.1hDw:Day.1hDw 6 6.18e+07 10303324 0.52 0.79
## Residuals 24 4.75e+08 19781008
comparison <- aov(Data.1hDw ~ Group.1hDw * Day.1hDw, data = MPD1hourlyDW)
TukeyHSD(comparison, "Group.1hDw")
## Tukey multiple comparisons of means
## 95% family-wise confidence level
##
## Fit: aov(formula = Data.1hDw ~ Group.1hDw * Day.1hDw, data = MPD1hourlyDW)
##
## $Group.1hDw
## diff lwr upr p adj
## 2.5 mg/kg-10.0 mg/kg -353.76 -6137 5430 0.9982
## 5.0 mg/kg-10.0 mg/kg 3793.35 -1990 9577 0.2937
## Saline-10.0 mg/kg -448.65 -6232 5335 0.9964
## 5.0 mg/kg-2.5 mg/kg 4147.11 -1637 9931 0.2240
## Saline-2.5 mg/kg -94.89 -5879 5689 1.0000
## Saline-5.0 mg/kg -4242.00 -10026 1542 0.2076
TukeyHSD(comparison, "Day.1hDw")
## Tukey multiple comparisons of means
## 95% family-wise confidence level
##
## Fit: aov(formula = Data.1hDw ~ Group.1hDw * Day.1hDw, data = MPD1hourlyDW)
##
## $Day.1hDw
## diff lwr upr p adj
## 2-1 1886.1 -2648 6420 0.5603
## 3-1 776.5 -3758 5311 0.9045
## 3-2 -1109.6 -5644 3425 0.8155
print(model.tables(aov.MPD1hourlyDW, "means"), digits = 9)
## Tables of means
## Grand mean
##
## 1197
##
## Group.1hDw
## Group.1hDw
## 10.0 mg/kg 2.5 mg/kg 5.0 mg/kg Saline
## 449.682 95.920 4243.028 1.027
##
## Day.1hDw
## Day.1hDw
## 1 2 3
## 309.9 2196.0 1086.4
##
## Group.1hDw:Day.1hDw
## Day.1hDw
## Group.1hDw 1 2 3
## 10.0 mg/kg 239.1001 534.0736 575.8708
## 2.5 mg/kg 213.8611 65.9842 7.9156
## 5.0 mg/kg 785.5412 8182.4605 3761.0821
## Saline 1.0109 1.4848 0.5858
MPD1.5hourlyDW <- read.csv("~/Desktop/exp 2 posthochourDommerWheel.csv")
MPD1.5hourlyDW
## Group.1hDw Day.1hDw Data.1hDw Group.1.5hDw Day.1.5hDw Data.1.5hDw
## 1 Saline 1 8.787e-01 Saline 1 44.6164
## 2 Saline 1 2.154e+00 Saline 1 14.2185
## 3 Saline 1 0.000e+00 Saline 1 17.7200
## 4 Saline 2 8.787e-01 Saline 2 0.1646
## 5 Saline 2 0.000e+00 Saline 2 11.5525
## 6 Saline 2 3.576e+00 Saline 2 1.9204
## 7 Saline 3 1.757e+00 Saline 3 9.8782
## 8 Saline 3 0.000e+00 Saline 3 0.0000
## 9 Saline 3 0.000e+00 Saline 3 2.8806
## 10 2.5 mg/kg 1 0.000e+00 2.5 mg/kg 1 0.0000
## 11 2.5 mg/kg 1 5.958e+02 2.5 mg/kg 1 207.7834
## 12 2.5 mg/kg 1 4.574e+01 2.5 mg/kg 1 61.4836
## 13 2.5 mg/kg 2 0.000e+00 2.5 mg/kg 2 0.0000
## 14 2.5 mg/kg 2 1.978e+02 2.5 mg/kg 2 73.8548
## 15 2.5 mg/kg 2 1.548e-01 2.5 mg/kg 2 0.1304
## 16 2.5 mg/kg 3 0.000e+00 2.5 mg/kg 3 0.0000
## 17 2.5 mg/kg 3 1.223e+00 2.5 mg/kg 3 0.2911
## 18 2.5 mg/kg 3 2.252e+01 2.5 mg/kg 3 12.6533
## 19 5.0 mg/kg 1 1.655e+03 5.0 mg/kg 1 88.3929
## 20 5.0 mg/kg 1 1.751e+02 5.0 mg/kg 1 149.0271
## 21 5.0 mg/kg 1 5.263e+02 5.0 mg/kg 1 116.2791
## 22 5.0 mg/kg 2 0.000e+00 5.0 mg/kg 2 0.8929
## 23 5.0 mg/kg 2 1.526e+02 5.0 mg/kg 2 124.2288
## 24 5.0 mg/kg 2 2.439e+04 5.0 mg/kg 2 5430.2326
## 25 5.0 mg/kg 3 2.069e+02 5.0 mg/kg 3 10.7143
## 26 5.0 mg/kg 3 1.027e+02 5.0 mg/kg 3 75.2848
## 27 5.0 mg/kg 3 1.097e+04 5.0 mg/kg 3 2424.4186
## 28 10.0 mg/kg 1 2.420e+02 10.0 mg/kg 1 143.8979
## 29 10.0 mg/kg 1 4.731e+02 10.0 mg/kg 1 221.1459
## 30 10.0 mg/kg 1 2.212e+00 10.0 mg/kg 1 4.5187
## 31 10.0 mg/kg 2 0.000e+00 10.0 mg/kg 2 23.8748
## 32 10.0 mg/kg 2 9.673e+02 10.0 mg/kg 2 454.4518
## 33 10.0 mg/kg 2 6.350e+02 10.0 mg/kg 2 173.8703
## 34 10.0 mg/kg 3 1.408e+02 10.0 mg/kg 3 116.4166
## 35 10.0 mg/kg 3 1.036e+03 10.0 mg/kg 3 469.7032
## 36 10.0 mg/kg 3 5.509e+02 10.0 mg/kg 3 110.6090
## Group.2hDw Day.2hDw Data.2hDw
## 1 Saline 1 2.879e+01
## 2 Saline 1 2.512e+01
## 3 Saline 1 3.815e+01
## 4 Saline 2 9.258e-02
## 5 Saline 2 3.671e+01
## 6 Saline 2 1.656e+00
## 7 Saline 3 2.416e+01
## 8 Saline 3 1.094e+01
## 9 Saline 3 2.483e+00
## 10 2.5 mg/kg 1 0.000e+00
## 11 2.5 mg/kg 1 1.713e+02
## 12 2.5 mg/kg 1 6.587e+01
## 13 2.5 mg/kg 2 0.000e+00
## 14 2.5 mg/kg 2 7.679e+01
## 15 2.5 mg/kg 2 9.906e-02
## 16 2.5 mg/kg 3 0.000e+00
## 17 2.5 mg/kg 3 1.771e-01
## 18 2.5 mg/kg 3 9.608e+00
## 19 5.0 mg/kg 1 4.459e+01
## 20 5.0 mg/kg 1 1.512e+02
## 21 5.0 mg/kg 1 4.237e+01
## 22 5.0 mg/kg 2 1.351e+00
## 23 5.0 mg/kg 2 9.402e+01
## 24 5.0 mg/kg 2 2.006e+03
## 25 5.0 mg/kg 3 5.405e+00
## 26 5.0 mg/kg 3 5.420e+01
## 27 5.0 mg/kg 3 8.835e+02
## 28 10.0 mg/kg 1 1.459e+02
## 29 10.0 mg/kg 1 1.444e+02
## 30 10.0 mg/kg 1 4.231e+00
## 31 10.0 mg/kg 2 4.303e+01
## 32 10.0 mg/kg 2 3.791e+02
## 33 10.0 mg/kg 2 1.282e+02
## 34 10.0 mg/kg 3 9.927e+01
## 35 10.0 mg/kg 3 4.082e+02
## 36 10.0 mg/kg 3 7.443e+01
tapply(MPD1.5hourlyDW$Data.1.5hDw, MPD1.5hourlyDW$Group.1.5hDw, sd)
## 10.0 mg/kg 2.5 mg/kg 5.0 mg/kg Saline
## 167.79 69.35 1855.86 14.02
tapply(MPD1.5hourlyDW$Data.1.5hDw, MPD1.5hourlyDW$Day.1.5hDw, sd)
## 1 2 3
## 78.27 1550.46 691.46
MPD1.5hourlyDW$Group.1.5hDw <- as.factor(MPD1.5hourlyDW$Group.1.5hDw)
MPD1.5hourlyDW$Day.1.5hDw <- as.factor(MPD1.5hourlyDW$Day.1.5hDw)
MPD1.5hourlyDW$Data.1.5hDw <- as.numeric(MPD1.5hourlyDW$Data.1.5hDw)
aov.MPD1.5hourlyDW = aov(Data.1.5hDw ~ Group.1.5hDw * Day.1.5hDw, data = MPD1.5hourlyDW)
summary(aov.MPD1.5hourlyDW)
## Df Sum Sq Mean Sq F value Pr(>F)
## Group.1.5hDw 3 5100389 1700130 1.76 0.18
## Day.1.5hDw 2 1149215 574607 0.59 0.56
## Group.1.5hDw:Day.1.5hDw 6 3437983 572997 0.59 0.73
## Residuals 24 23231683 967987
comparison <- aov(Data.1.5hDw ~ Group.1.5hDw * Day.1.5hDw, data = MPD1.5hourlyDW)
TukeyHSD(comparison, "Group.1.5hDw")
## Tukey multiple comparisons of means
## 95% family-wise confidence level
##
## Fit: aov(formula = Data.1.5hDw ~ Group.1.5hDw * Day.1.5hDw, data = MPD1.5hourlyDW)
##
## $Group.1.5hDw
## diff lwr upr p adj
## 2.5 mg/kg-10.0 mg/kg -151.37 -1430.8 1128.1 0.9877
## 5.0 mg/kg-10.0 mg/kg 744.55 -534.9 2024.0 0.3946
## Saline-10.0 mg/kg -179.50 -1458.9 1099.9 0.9798
## 5.0 mg/kg-2.5 mg/kg 895.92 -383.5 2175.4 0.2418
## Saline-2.5 mg/kg -28.14 -1307.6 1251.3 0.9999
## Saline-5.0 mg/kg -924.06 -2203.5 355.4 0.2187
TukeyHSD(comparison, "Day.1.5hDw")
## Tukey multiple comparisons of means
## 95% family-wise confidence level
##
## Fit: aov(formula = Data.1.5hDw ~ Group.1.5hDw * Day.1.5hDw, data = MPD1.5hourlyDW)
##
## $Day.1.5hDw
## diff lwr upr p adj
## 2-1 435.5 -567.6 1438.6 0.5327
## 3-1 180.3 -822.7 1183.4 0.8953
## 3-2 -255.2 -1258.3 747.9 0.8023
print(model.tables(aov.MPD1.5hourlyDW, "means"), digits = 9)
## Tables of means
## Grand mean
##
## 294.4
##
## Group.1.5hDw
## Group.1.5hDw
## 10.0 mg/kg 2.5 mg/kg 5.0 mg/kg Saline
## 190.94 39.58 935.50 11.44
##
## Day.1.5hDw
## Day.1.5hDw
## 1 2 3
## 89.09 524.60 269.40
##
## Group.1.5hDw:Day.1.5hDw
## Day.1.5hDw
## Group.1.5hDw 1 2 3
## 10.0 mg/kg 123.187 217.399 232.243
## 2.5 mg/kg 89.756 24.662 4.315
## 5.0 mg/kg 117.900 1851.785 836.806
## Saline 25.518 4.546 4.253
MPD2hourlyDW <- read.csv("~/Desktop/exp 2 posthochourDommerWheel.csv")
MPD2hourlyDW
## Group.1hDw Day.1hDw Data.1hDw Group.1.5hDw Day.1.5hDw Data.1.5hDw
## 1 Saline 1 8.787e-01 Saline 1 44.6164
## 2 Saline 1 2.154e+00 Saline 1 14.2185
## 3 Saline 1 0.000e+00 Saline 1 17.7200
## 4 Saline 2 8.787e-01 Saline 2 0.1646
## 5 Saline 2 0.000e+00 Saline 2 11.5525
## 6 Saline 2 3.576e+00 Saline 2 1.9204
## 7 Saline 3 1.757e+00 Saline 3 9.8782
## 8 Saline 3 0.000e+00 Saline 3 0.0000
## 9 Saline 3 0.000e+00 Saline 3 2.8806
## 10 2.5 mg/kg 1 0.000e+00 2.5 mg/kg 1 0.0000
## 11 2.5 mg/kg 1 5.958e+02 2.5 mg/kg 1 207.7834
## 12 2.5 mg/kg 1 4.574e+01 2.5 mg/kg 1 61.4836
## 13 2.5 mg/kg 2 0.000e+00 2.5 mg/kg 2 0.0000
## 14 2.5 mg/kg 2 1.978e+02 2.5 mg/kg 2 73.8548
## 15 2.5 mg/kg 2 1.548e-01 2.5 mg/kg 2 0.1304
## 16 2.5 mg/kg 3 0.000e+00 2.5 mg/kg 3 0.0000
## 17 2.5 mg/kg 3 1.223e+00 2.5 mg/kg 3 0.2911
## 18 2.5 mg/kg 3 2.252e+01 2.5 mg/kg 3 12.6533
## 19 5.0 mg/kg 1 1.655e+03 5.0 mg/kg 1 88.3929
## 20 5.0 mg/kg 1 1.751e+02 5.0 mg/kg 1 149.0271
## 21 5.0 mg/kg 1 5.263e+02 5.0 mg/kg 1 116.2791
## 22 5.0 mg/kg 2 0.000e+00 5.0 mg/kg 2 0.8929
## 23 5.0 mg/kg 2 1.526e+02 5.0 mg/kg 2 124.2288
## 24 5.0 mg/kg 2 2.439e+04 5.0 mg/kg 2 5430.2326
## 25 5.0 mg/kg 3 2.069e+02 5.0 mg/kg 3 10.7143
## 26 5.0 mg/kg 3 1.027e+02 5.0 mg/kg 3 75.2848
## 27 5.0 mg/kg 3 1.097e+04 5.0 mg/kg 3 2424.4186
## 28 10.0 mg/kg 1 2.420e+02 10.0 mg/kg 1 143.8979
## 29 10.0 mg/kg 1 4.731e+02 10.0 mg/kg 1 221.1459
## 30 10.0 mg/kg 1 2.212e+00 10.0 mg/kg 1 4.5187
## 31 10.0 mg/kg 2 0.000e+00 10.0 mg/kg 2 23.8748
## 32 10.0 mg/kg 2 9.673e+02 10.0 mg/kg 2 454.4518
## 33 10.0 mg/kg 2 6.350e+02 10.0 mg/kg 2 173.8703
## 34 10.0 mg/kg 3 1.408e+02 10.0 mg/kg 3 116.4166
## 35 10.0 mg/kg 3 1.036e+03 10.0 mg/kg 3 469.7032
## 36 10.0 mg/kg 3 5.509e+02 10.0 mg/kg 3 110.6090
## Group.2hDw Day.2hDw Data.2hDw
## 1 Saline 1 2.879e+01
## 2 Saline 1 2.512e+01
## 3 Saline 1 3.815e+01
## 4 Saline 2 9.258e-02
## 5 Saline 2 3.671e+01
## 6 Saline 2 1.656e+00
## 7 Saline 3 2.416e+01
## 8 Saline 3 1.094e+01
## 9 Saline 3 2.483e+00
## 10 2.5 mg/kg 1 0.000e+00
## 11 2.5 mg/kg 1 1.713e+02
## 12 2.5 mg/kg 1 6.587e+01
## 13 2.5 mg/kg 2 0.000e+00
## 14 2.5 mg/kg 2 7.679e+01
## 15 2.5 mg/kg 2 9.906e-02
## 16 2.5 mg/kg 3 0.000e+00
## 17 2.5 mg/kg 3 1.771e-01
## 18 2.5 mg/kg 3 9.608e+00
## 19 5.0 mg/kg 1 4.459e+01
## 20 5.0 mg/kg 1 1.512e+02
## 21 5.0 mg/kg 1 4.237e+01
## 22 5.0 mg/kg 2 1.351e+00
## 23 5.0 mg/kg 2 9.402e+01
## 24 5.0 mg/kg 2 2.006e+03
## 25 5.0 mg/kg 3 5.405e+00
## 26 5.0 mg/kg 3 5.420e+01
## 27 5.0 mg/kg 3 8.835e+02
## 28 10.0 mg/kg 1 1.459e+02
## 29 10.0 mg/kg 1 1.444e+02
## 30 10.0 mg/kg 1 4.231e+00
## 31 10.0 mg/kg 2 4.303e+01
## 32 10.0 mg/kg 2 3.791e+02
## 33 10.0 mg/kg 2 1.282e+02
## 34 10.0 mg/kg 3 9.927e+01
## 35 10.0 mg/kg 3 4.082e+02
## 36 10.0 mg/kg 3 7.443e+01
tapply(MPD2hourlyDW$Data.2hDw, MPD2hourlyDW$Group.2hDw, sd)
## 10.0 mg/kg 2.5 mg/kg 5.0 mg/kg Saline
## 141.43 59.18 675.18 15.15
tapply(MPD2hourlyDW$Data.2hDw, MPD2hourlyDW$Day.2hDw, sd)
## 1 2 3
## 62.87 569.32 262.90
MPD2hourlyDW$Group.2hDw <- as.factor(MPD2hourlyDW$Group.2hDw)
MPD2hourlyDW$Day.2hDw <- as.factor(MPD2hourlyDW$Day.2hDw)
MPD2hourlyDW$Data.2hDw <- as.numeric(MPD2hourlyDW$Data.2hDw)
aov.MPD2hourlyDW = aov(Data.2hDw ~ Group.2hDw * Day.2hDw, data = MPD2hourlyDW)
summary(aov.MPD2hourlyDW)
## Df Sum Sq Mean Sq F value Pr(>F)
## Group.2hDw 3 686927 228976 1.71 0.19
## Day.2hDw 2 154563 77281 0.58 0.57
## Group.2hDw:Day.2hDw 6 461992 76999 0.57 0.75
## Residuals 24 3220216 134176
comparison <- aov(Data.2hDw ~ Group.2hDw * Day.2hDw, data = MPD2hourlyDW)
TukeyHSD(comparison, "Group.2hDw")
## Tukey multiple comparisons of means
## 95% family-wise confidence level
##
## Fit: aov(formula = Data.2hDw ~ Group.2hDw * Day.2hDw, data = MPD2hourlyDW)
##
## $Group.2hDw
## diff lwr upr p adj
## 2.5 mg/kg-10.0 mg/kg -122.6 -598.9 353.8 0.8922
## 5.0 mg/kg-10.0 mg/kg 206.2 -270.1 682.6 0.6362
## Saline-10.0 mg/kg -139.9 -616.2 336.5 0.8491
## 5.0 mg/kg-2.5 mg/kg 328.8 -147.6 805.1 0.2529
## Saline-2.5 mg/kg -17.3 -493.6 459.0 0.9996
## Saline-5.0 mg/kg -346.1 -822.4 130.2 0.2143
TukeyHSD(comparison, "Day.2hDw")
## Tukey multiple comparisons of means
## 95% family-wise confidence level
##
## Fit: aov(formula = Data.2hDw ~ Group.2hDw * Day.2hDw, data = MPD2hourlyDW)
##
## $Day.2hDw
## diff lwr upr p adj
## 2-1 158.80 -214.7 532.2 0.5462
## 3-1 59.20 -314.2 432.7 0.9175
## 3-2 -99.59 -473.0 273.9 0.7852
print(model.tables(aov.MPD2hourlyDW, "means"), digits = 9)
## Tables of means
## Grand mean
##
## 144.5
##
## Group.2hDw
## Group.2hDw
## 10.0 mg/kg 2.5 mg/kg 5.0 mg/kg Saline
## 158.54 35.98 364.77 18.68
##
## Day.2hDw
## Day.2hDw
## 1 2 3
## 71.83 230.62 131.03
##
## Group.2hDw:Day.2hDw
## Day.2hDw
## Group.2hDw 1 2 3
## 10.0 mg/kg 98.169 183.469 193.969
## 2.5 mg/kg 79.054 25.630 3.262
## 5.0 mg/kg 79.390 700.575 314.360
## Saline 30.688 12.819 12.529
MPDhourly1DM <- read.csv("~/Desktop/exp 2 posthochourDommerMotion.csv")
MPDhourly1DM
## Group.1hDm Day.1hDm Data.1hDm Group.1.5hDm Day.1.5hDm Data.1.5hDm
## 1 Saline 1 107.84 Saline 1 190.28
## 2 Saline 1 33.46 Saline 1 33.54
## 3 Saline 1 22.73 Saline 1 32.52
## 4 Saline 2 313.73 Saline 2 163.97
## 5 Saline 2 48.33 Saline 2 47.76
## 6 Saline 2 42.21 Saline 2 43.70
## 7 Saline 3 112.75 Saline 3 85.02
## 8 Saline 3 11.15 Saline 3 19.31
## 9 Saline 3 32.47 Saline 3 88.41
## 10 2.5 mg/kg 1 87.72 2.5 mg/kg 1 46.30
## 11 2.5 mg/kg 1 153.23 2.5 mg/kg 1 93.27
## 12 2.5 mg/kg 1 119.23 2.5 mg/kg 1 96.77
## 13 2.5 mg/kg 2 157.89 2.5 mg/kg 2 115.74
## 14 2.5 mg/kg 2 76.61 2.5 mg/kg 2 53.52
## 15 2.5 mg/kg 2 34.62 2.5 mg/kg 2 22.18
## 16 2.5 mg/kg 3 122.81 2.5 mg/kg 3 87.96
## 17 2.5 mg/kg 3 169.35 2.5 mg/kg 3 64.22
## 18 2.5 mg/kg 3 134.62 2.5 mg/kg 3 112.90
## 19 5.0 mg/kg 1 361.11 5.0 mg/kg 1 97.63
## 20 5.0 mg/kg 1 49.05 5.0 mg/kg 1 52.84
## 21 5.0 mg/kg 1 541.30 5.0 mg/kg 1 342.76
## 22 5.0 mg/kg 2 41.67 5.0 mg/kg 2 17.75
## 23 5.0 mg/kg 2 166.14 5.0 mg/kg 2 129.16
## 24 5.0 mg/kg 2 363.04 5.0 mg/kg 2 266.97
## 25 5.0 mg/kg 3 83.33 5.0 mg/kg 3 44.38
## 26 5.0 mg/kg 3 172.47 5.0 mg/kg 3 154.60
## 27 5.0 mg/kg 3 360.87 5.0 mg/kg 3 298.64
## 28 10.0 mg/kg 1 168.76 10.0 mg/kg 1 149.94
## 29 10.0 mg/kg 1 505.21 10.0 mg/kg 1 302.63
## 30 10.0 mg/kg 1 1422.22 10.0 mg/kg 1 982.86
## 31 10.0 mg/kg 2 13.63 10.0 mg/kg 2 54.41
## 32 10.0 mg/kg 2 427.08 10.0 mg/kg 2 257.89
## 33 10.0 mg/kg 2 38.89 10.0 mg/kg 2 51.43
## 34 10.0 mg/kg 3 157.23 10.0 mg/kg 3 143.29
## 35 10.0 mg/kg 3 343.75 10.0 mg/kg 3 226.32
## 36 10.0 mg/kg 3 72.22 10.0 mg/kg 3 60.00
## Group.2hDm Day.2hDm Data.2hDm
## 1 Saline 1 141.53
## 2 Saline 1 37.27
## 3 Saline 1 84.46
## 4 Saline 2 137.57
## 5 Saline 2 47.82
## 6 Saline 2 53.21
## 7 Saline 3 70.11
## 8 Saline 3 50.63
## 9 Saline 3 79.39
## 10 2.5 mg/kg 1 44.35
## 11 2.5 mg/kg 1 87.18
## 12 2.5 mg/kg 1 95.11
## 13 2.5 mg/kg 2 120.97
## 14 2.5 mg/kg 2 95.59
## 15 2.5 mg/kg 2 17.66
## 16 2.5 mg/kg 3 88.71
## 17 2.5 mg/kg 3 60.92
## 18 2.5 mg/kg 3 88.32
## 19 5.0 mg/kg 1 97.28
## 20 5.0 mg/kg 1 68.31
## 21 5.0 mg/kg 1 254.42
## 22 5.0 mg/kg 2 11.67
## 23 5.0 mg/kg 2 102.46
## 24 5.0 mg/kg 2 244.10
## 25 5.0 mg/kg 3 58.37
## 26 5.0 mg/kg 3 128.42
## 27 5.0 mg/kg 3 218.29
## 28 10.0 mg/kg 1 163.01
## 29 10.0 mg/kg 1 236.63
## 30 10.0 mg/kg 1 632.30
## 31 10.0 mg/kg 2 74.25
## 32 10.0 mg/kg 2 236.63
## 33 10.0 mg/kg 2 32.65
## 34 10.0 mg/kg 3 123.02
## 35 10.0 mg/kg 3 244.86
## 36 10.0 mg/kg 3 44.67
tapply(MPDhourly1DM$Data.1hDm, MPDhourly1DM$Group.1hDm, sd)
## 10.0 mg/kg 2.5 mg/kg 5.0 mg/kg Saline
## 438.30 43.80 175.18 94.44
tapply(MPDhourly1DM$Data.1hDm, MPDhourly1DM$Day.1hDm, sd)
## 1 2 3
## 396.3 145.3 108.2
MPDhourly1DM$Group.E2DmpdM <- as.factor(MPDhourly1DM$Group.1hDm)
MPDhourly1DM$Day.1hDm <- as.factor(MPDhourly1DM$Day.1hDm)
MPDhourly1DM$Data.1hDm <- as.numeric(MPDhourly1DM$Data.1hDm)
aov.MPDhourly1DM = aov(Data.1hDm ~ Group.1hDm * Day.1hDm, data = MPDhourly1DM)
summary(aov.MPDhourly1DM)
## Df Sum Sq Mean Sq F value Pr(>F)
## Group.1hDm 3 404466 134822 2.54 0.08 .
## Day.1hDm 2 184819 92409 1.74 0.20
## Group.1hDm:Day.1hDm 6 410458 68410 1.29 0.30
## Residuals 24 1273767 53074
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
comparison <- aov(Data.1hDm ~ Group.1hDm * Day.1hDm, data = MPDhourly1DM)
TukeyHSD(comparison, "Group.1hDm")
## Tukey multiple comparisons of means
## 95% family-wise confidence level
##
## Fit: aov(formula = Data.1hDm ~ Group.1hDm * Day.1hDm, data = MPDhourly1DM)
##
## $Group.1hDm
## diff lwr upr p adj
## 2.5 mg/kg-10.0 mg/kg -232.55 -532.1 67.04 0.1689
## 5.0 mg/kg-10.0 mg/kg -112.22 -411.8 187.36 0.7319
## Saline-10.0 mg/kg -269.37 -569.0 30.22 0.0888
## 5.0 mg/kg-2.5 mg/kg 120.32 -179.3 419.91 0.6882
## Saline-2.5 mg/kg -36.82 -336.4 262.76 0.9862
## Saline-5.0 mg/kg -157.15 -456.7 142.44 0.4837
TukeyHSD(comparison, "Day.1hDm")
## Tukey multiple comparisons of means
## 95% family-wise confidence level
##
## Fit: aov(formula = Data.1hDm ~ Group.1hDm * Day.1hDm, data = MPDhourly1DM)
##
## $Day.1hDm
## diff lwr upr p adj
## 2-1 -154.003 -388.9 80.87 0.2498
## 3-1 -149.904 -384.8 84.97 0.2676
## 3-2 4.099 -230.8 238.97 0.9990
print(model.tables(aov.MPDhourly1DM, "means"), digits = 9)
## Tables of means
## Grand mean
##
## 196.4
##
## Group.1hDm
## Group.1hDm
## 10.0 mg/kg 2.5 mg/kg 5.0 mg/kg Saline
## 349.89 117.34 237.67 80.52
##
## Day.1hDm
## Day.1hDm
## 1 2 3
## 297.7 143.7 147.8
##
## Group.1hDm:Day.1hDm
## Day.1hDm
## Group.1hDm 1 2 3
## 10.0 mg/kg 698.73 159.87 191.07
## 2.5 mg/kg 120.06 89.71 142.26
## 5.0 mg/kg 317.16 190.28 205.56
## Saline 54.68 134.75 52.12
MPDhourly1.5DM <- read.csv("~/Desktop/exp 2 posthochourDommerMotion.csv")
MPDhourly1.5DM
## Group.1hDm Day.1hDm Data.1hDm Group.1.5hDm Day.1.5hDm Data.1.5hDm
## 1 Saline 1 107.84 Saline 1 190.28
## 2 Saline 1 33.46 Saline 1 33.54
## 3 Saline 1 22.73 Saline 1 32.52
## 4 Saline 2 313.73 Saline 2 163.97
## 5 Saline 2 48.33 Saline 2 47.76
## 6 Saline 2 42.21 Saline 2 43.70
## 7 Saline 3 112.75 Saline 3 85.02
## 8 Saline 3 11.15 Saline 3 19.31
## 9 Saline 3 32.47 Saline 3 88.41
## 10 2.5 mg/kg 1 87.72 2.5 mg/kg 1 46.30
## 11 2.5 mg/kg 1 153.23 2.5 mg/kg 1 93.27
## 12 2.5 mg/kg 1 119.23 2.5 mg/kg 1 96.77
## 13 2.5 mg/kg 2 157.89 2.5 mg/kg 2 115.74
## 14 2.5 mg/kg 2 76.61 2.5 mg/kg 2 53.52
## 15 2.5 mg/kg 2 34.62 2.5 mg/kg 2 22.18
## 16 2.5 mg/kg 3 122.81 2.5 mg/kg 3 87.96
## 17 2.5 mg/kg 3 169.35 2.5 mg/kg 3 64.22
## 18 2.5 mg/kg 3 134.62 2.5 mg/kg 3 112.90
## 19 5.0 mg/kg 1 361.11 5.0 mg/kg 1 97.63
## 20 5.0 mg/kg 1 49.05 5.0 mg/kg 1 52.84
## 21 5.0 mg/kg 1 541.30 5.0 mg/kg 1 342.76
## 22 5.0 mg/kg 2 41.67 5.0 mg/kg 2 17.75
## 23 5.0 mg/kg 2 166.14 5.0 mg/kg 2 129.16
## 24 5.0 mg/kg 2 363.04 5.0 mg/kg 2 266.97
## 25 5.0 mg/kg 3 83.33 5.0 mg/kg 3 44.38
## 26 5.0 mg/kg 3 172.47 5.0 mg/kg 3 154.60
## 27 5.0 mg/kg 3 360.87 5.0 mg/kg 3 298.64
## 28 10.0 mg/kg 1 168.76 10.0 mg/kg 1 149.94
## 29 10.0 mg/kg 1 505.21 10.0 mg/kg 1 302.63
## 30 10.0 mg/kg 1 1422.22 10.0 mg/kg 1 982.86
## 31 10.0 mg/kg 2 13.63 10.0 mg/kg 2 54.41
## 32 10.0 mg/kg 2 427.08 10.0 mg/kg 2 257.89
## 33 10.0 mg/kg 2 38.89 10.0 mg/kg 2 51.43
## 34 10.0 mg/kg 3 157.23 10.0 mg/kg 3 143.29
## 35 10.0 mg/kg 3 343.75 10.0 mg/kg 3 226.32
## 36 10.0 mg/kg 3 72.22 10.0 mg/kg 3 60.00
## Group.2hDm Day.2hDm Data.2hDm
## 1 Saline 1 141.53
## 2 Saline 1 37.27
## 3 Saline 1 84.46
## 4 Saline 2 137.57
## 5 Saline 2 47.82
## 6 Saline 2 53.21
## 7 Saline 3 70.11
## 8 Saline 3 50.63
## 9 Saline 3 79.39
## 10 2.5 mg/kg 1 44.35
## 11 2.5 mg/kg 1 87.18
## 12 2.5 mg/kg 1 95.11
## 13 2.5 mg/kg 2 120.97
## 14 2.5 mg/kg 2 95.59
## 15 2.5 mg/kg 2 17.66
## 16 2.5 mg/kg 3 88.71
## 17 2.5 mg/kg 3 60.92
## 18 2.5 mg/kg 3 88.32
## 19 5.0 mg/kg 1 97.28
## 20 5.0 mg/kg 1 68.31
## 21 5.0 mg/kg 1 254.42
## 22 5.0 mg/kg 2 11.67
## 23 5.0 mg/kg 2 102.46
## 24 5.0 mg/kg 2 244.10
## 25 5.0 mg/kg 3 58.37
## 26 5.0 mg/kg 3 128.42
## 27 5.0 mg/kg 3 218.29
## 28 10.0 mg/kg 1 163.01
## 29 10.0 mg/kg 1 236.63
## 30 10.0 mg/kg 1 632.30
## 31 10.0 mg/kg 2 74.25
## 32 10.0 mg/kg 2 236.63
## 33 10.0 mg/kg 2 32.65
## 34 10.0 mg/kg 3 123.02
## 35 10.0 mg/kg 3 244.86
## 36 10.0 mg/kg 3 44.67
tapply(MPDhourly1.5DM$Data.1.5hDm, MPDhourly1.5DM$Group.1.5hDm, sd)
## 10.0 mg/kg 2.5 mg/kg 5.0 mg/kg Saline
## 290.60 32.07 119.31 60.97
tapply(MPDhourly1.5DM$Data.1.5hDm, MPDhourly1.5DM$Day.1.5hDm, sd)
## 1 2 3
## 266.3 87.0 80.1
MPDhourly1.5DM$Group.1.5hDm <- as.factor(MPDhourly1.5DM$Group.1.5hDm)
MPDhourly1.5DM$Day.1.5hDm <- as.factor(MPDhourly1.5DM$Day.1hDm)
MPDhourly1.5DM$Data.1.5hDm <- as.numeric(MPDhourly1.5DM$Data.1hDm)
aov.MPDhourly1.5DM = aov(Data.1.5hDm ~ Group.1.5hDm * Day.1.5hDm, data = MPDhourly1.5DM)
summary(aov.MPDhourly1.5DM)
## Df Sum Sq Mean Sq F value Pr(>F)
## Group.1.5hDm 3 404466 134822 2.54 0.08 .
## Day.1.5hDm 2 184819 92409 1.74 0.20
## Group.1.5hDm:Day.1.5hDm 6 410458 68410 1.29 0.30
## Residuals 24 1273767 53074
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
comparison <- aov(Data.1.5hDm ~ Group.1.5hDm * Day.1.5hDm, data = MPDhourly1.5DM)
TukeyHSD(comparison, "Group.1.5hDm")
## Tukey multiple comparisons of means
## 95% family-wise confidence level
##
## Fit: aov(formula = Data.1.5hDm ~ Group.1.5hDm * Day.1.5hDm, data = MPDhourly1.5DM)
##
## $Group.1.5hDm
## diff lwr upr p adj
## 2.5 mg/kg-10.0 mg/kg -232.55 -532.1 67.04 0.1689
## 5.0 mg/kg-10.0 mg/kg -112.22 -411.8 187.36 0.7319
## Saline-10.0 mg/kg -269.37 -569.0 30.22 0.0888
## 5.0 mg/kg-2.5 mg/kg 120.32 -179.3 419.91 0.6882
## Saline-2.5 mg/kg -36.82 -336.4 262.76 0.9862
## Saline-5.0 mg/kg -157.15 -456.7 142.44 0.4837
TukeyHSD(comparison, "Day.1.5hDm")
## Tukey multiple comparisons of means
## 95% family-wise confidence level
##
## Fit: aov(formula = Data.1.5hDm ~ Group.1.5hDm * Day.1.5hDm, data = MPDhourly1.5DM)
##
## $Day.1.5hDm
## diff lwr upr p adj
## 2-1 -154.003 -388.9 80.87 0.2498
## 3-1 -149.904 -384.8 84.97 0.2676
## 3-2 4.099 -230.8 238.97 0.9990
print(model.tables(aov.MPDhourly1.5DM, "means"), digits = 9)
## Tables of means
## Grand mean
##
## 196.4
##
## Group.1.5hDm
## Group.1.5hDm
## 10.0 mg/kg 2.5 mg/kg 5.0 mg/kg Saline
## 349.89 117.34 237.67 80.52
##
## Day.1.5hDm
## Day.1.5hDm
## 1 2 3
## 297.7 143.7 147.8
##
## Group.1.5hDm:Day.1.5hDm
## Day.1.5hDm
## Group.1.5hDm 1 2 3
## 10.0 mg/kg 698.73 159.87 191.07
## 2.5 mg/kg 120.06 89.71 142.26
## 5.0 mg/kg 317.16 190.28 205.56
## Saline 54.68 134.75 52.12
MPDhourly2DM <- read.csv("~/Desktop/exp 2 posthochourDommerMotion.csv")
MPDhourly2DM
## Group.1hDm Day.1hDm Data.1hDm Group.1.5hDm Day.1.5hDm Data.1.5hDm
## 1 Saline 1 107.84 Saline 1 190.28
## 2 Saline 1 33.46 Saline 1 33.54
## 3 Saline 1 22.73 Saline 1 32.52
## 4 Saline 2 313.73 Saline 2 163.97
## 5 Saline 2 48.33 Saline 2 47.76
## 6 Saline 2 42.21 Saline 2 43.70
## 7 Saline 3 112.75 Saline 3 85.02
## 8 Saline 3 11.15 Saline 3 19.31
## 9 Saline 3 32.47 Saline 3 88.41
## 10 2.5 mg/kg 1 87.72 2.5 mg/kg 1 46.30
## 11 2.5 mg/kg 1 153.23 2.5 mg/kg 1 93.27
## 12 2.5 mg/kg 1 119.23 2.5 mg/kg 1 96.77
## 13 2.5 mg/kg 2 157.89 2.5 mg/kg 2 115.74
## 14 2.5 mg/kg 2 76.61 2.5 mg/kg 2 53.52
## 15 2.5 mg/kg 2 34.62 2.5 mg/kg 2 22.18
## 16 2.5 mg/kg 3 122.81 2.5 mg/kg 3 87.96
## 17 2.5 mg/kg 3 169.35 2.5 mg/kg 3 64.22
## 18 2.5 mg/kg 3 134.62 2.5 mg/kg 3 112.90
## 19 5.0 mg/kg 1 361.11 5.0 mg/kg 1 97.63
## 20 5.0 mg/kg 1 49.05 5.0 mg/kg 1 52.84
## 21 5.0 mg/kg 1 541.30 5.0 mg/kg 1 342.76
## 22 5.0 mg/kg 2 41.67 5.0 mg/kg 2 17.75
## 23 5.0 mg/kg 2 166.14 5.0 mg/kg 2 129.16
## 24 5.0 mg/kg 2 363.04 5.0 mg/kg 2 266.97
## 25 5.0 mg/kg 3 83.33 5.0 mg/kg 3 44.38
## 26 5.0 mg/kg 3 172.47 5.0 mg/kg 3 154.60
## 27 5.0 mg/kg 3 360.87 5.0 mg/kg 3 298.64
## 28 10.0 mg/kg 1 168.76 10.0 mg/kg 1 149.94
## 29 10.0 mg/kg 1 505.21 10.0 mg/kg 1 302.63
## 30 10.0 mg/kg 1 1422.22 10.0 mg/kg 1 982.86
## 31 10.0 mg/kg 2 13.63 10.0 mg/kg 2 54.41
## 32 10.0 mg/kg 2 427.08 10.0 mg/kg 2 257.89
## 33 10.0 mg/kg 2 38.89 10.0 mg/kg 2 51.43
## 34 10.0 mg/kg 3 157.23 10.0 mg/kg 3 143.29
## 35 10.0 mg/kg 3 343.75 10.0 mg/kg 3 226.32
## 36 10.0 mg/kg 3 72.22 10.0 mg/kg 3 60.00
## Group.2hDm Day.2hDm Data.2hDm
## 1 Saline 1 141.53
## 2 Saline 1 37.27
## 3 Saline 1 84.46
## 4 Saline 2 137.57
## 5 Saline 2 47.82
## 6 Saline 2 53.21
## 7 Saline 3 70.11
## 8 Saline 3 50.63
## 9 Saline 3 79.39
## 10 2.5 mg/kg 1 44.35
## 11 2.5 mg/kg 1 87.18
## 12 2.5 mg/kg 1 95.11
## 13 2.5 mg/kg 2 120.97
## 14 2.5 mg/kg 2 95.59
## 15 2.5 mg/kg 2 17.66
## 16 2.5 mg/kg 3 88.71
## 17 2.5 mg/kg 3 60.92
## 18 2.5 mg/kg 3 88.32
## 19 5.0 mg/kg 1 97.28
## 20 5.0 mg/kg 1 68.31
## 21 5.0 mg/kg 1 254.42
## 22 5.0 mg/kg 2 11.67
## 23 5.0 mg/kg 2 102.46
## 24 5.0 mg/kg 2 244.10
## 25 5.0 mg/kg 3 58.37
## 26 5.0 mg/kg 3 128.42
## 27 5.0 mg/kg 3 218.29
## 28 10.0 mg/kg 1 163.01
## 29 10.0 mg/kg 1 236.63
## 30 10.0 mg/kg 1 632.30
## 31 10.0 mg/kg 2 74.25
## 32 10.0 mg/kg 2 236.63
## 33 10.0 mg/kg 2 32.65
## 34 10.0 mg/kg 3 123.02
## 35 10.0 mg/kg 3 244.86
## 36 10.0 mg/kg 3 44.67
tapply(MPDhourly2DM$Data.2hDm, MPDhourly2DM$Group.2hDm, sd)
## 10.0 mg/kg 2.5 mg/kg 5.0 mg/kg Saline
## 182.62 31.26 87.35 38.12
tapply(MPDhourly2DM$Data.2hDm, MPDhourly2DM$Day.2hDm, sd)
## 1 2 3
## 163.53 77.43 64.94
MPDhourly2DM$Group.2hDm <- as.factor(MPDhourly2DM$Group.2hDm)
MPDhourly2DM$Day.2hDm <- as.factor(MPDhourly2DM$Day.2hDm)
MPDhourly2DM$Data.2hDm <- as.numeric(MPDhourly2DM$Data.2hDm)
aov.MPDhourly2DM = aov(Data.2hDm ~ Group.1hDm * Day.2hDm, data = MPDhourly2DM)
summary(aov.MPDhourly2DM)
## Df Sum Sq Mean Sq F value Pr(>F)
## Group.1hDm 3 88829 29610 2.84 0.059 .
## Day.2hDm 2 29614 14807 1.42 0.261
## Group.1hDm:Day.2hDm 6 67587 11264 1.08 0.401
## Residuals 24 250090 10420
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
comparison <- aov(Data.2hDm ~ Group.2hDm * Day.2hDm, data = MPDhourly2DM)
TukeyHSD(comparison, "Group.2hDm")
## Tukey multiple comparisons of means
## 95% family-wise confidence level
##
## Fit: aov(formula = Data.2hDm ~ Group.2hDm * Day.2hDm, data = MPDhourly2DM)
##
## $Group.2hDm
## diff lwr upr p adj
## 2.5 mg/kg-10.0 mg/kg -121.0215 -253.77 11.73 0.0829
## 5.0 mg/kg-10.0 mg/kg -67.1889 -199.94 65.56 0.5137
## Saline-10.0 mg/kg -120.6687 -253.42 12.08 0.0841
## 5.0 mg/kg-2.5 mg/kg 53.8326 -78.92 186.58 0.6818
## Saline-2.5 mg/kg 0.3528 -132.39 133.10 1.0000
## Saline-5.0 mg/kg -53.4798 -186.23 79.27 0.6862
TukeyHSD(comparison, "Day.2hDm")
## Tukey multiple comparisons of means
## 95% family-wise confidence level
##
## Fit: aov(formula = Data.2hDm ~ Group.2hDm * Day.2hDm, data = MPDhourly2DM)
##
## $Day.2hDm
## diff lwr upr p adj
## 2-1 -63.940 -168.01 40.13 0.2932
## 3-1 -57.179 -161.25 46.89 0.3709
## 3-2 6.761 -97.31 110.83 0.9856
print(model.tables(aov.MPDhourly2DM, "means"), digits = 9)
## Tables of means
## Grand mean
##
## 121.4
##
## Group.1hDm
## Group.1hDm
## 10.0 mg/kg 2.5 mg/kg 5.0 mg/kg Saline
## 198.67 77.65 131.48 78.00
##
## Day.2hDm
## Day.2hDm
## 1 2 3
## 161.82 97.88 104.64
##
## Group.1hDm:Day.2hDm
## Day.2hDm
## Group.1hDm 1 2 3
## 10.0 mg/kg 343.98 114.51 137.52
## 2.5 mg/kg 75.55 78.07 79.32
## 5.0 mg/kg 140.00 119.41 135.02
## Saline 87.76 79.53 66.71