Experiment 1 Dommer Wheel and Motion

data <- read.csv("dommer-ttest-wm.csv")
Day1Treatment <- data[(data$Group.E1DWheel == 1) & (data$Day.E1DWheel == 1), 
    ]
Day1NoTreatment <- data[(data$Group.E1DWheel == 0) & (data$Day.E1DWheel == 1), 
    ]
Day2Treatment <- data[(data$Group.E1DWheel == 1) & (data$Day.E1DWheel == 2), 
    ]
Day2NoTreatment <- data[(data$Group.E1DWheel == 0) & (data$Day.E1DWheel == 2), 
    ]
Day3Treatment <- data[(data$Group.E1DWheel == 1) & (data$Day.E1DWheel == 3), 
    ]
Day3NoTreatment <- data[(data$Group.E1DWheel == 0) & (data$Day.E1DWheel == 3), 
    ]
Day1WTTEST <- t.test(Day1Treatment$Data.E1DWheel, Day1NoTreatment$Data.E1DWheel, 
    paired = TRUE)
Day2WTTEST <- t.test(Day2Treatment$Data.E1DWheel, Day2NoTreatment$Data.E1DWheel, 
    paired = TRUE)
Day3WTTEST <- t.test(Day3Treatment$Data.E1DWheel, Day3NoTreatment$Data.E1DWheel, 
    paired = TRUE)

Day1WTTEST

## 
##  Paired t-test
## 
## data:  Day1Treatment$Data.E1DWheel and Day1NoTreatment$Data.E1DWheel
## t = -1.959, df = 8, p-value = 0.08584
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -75.39   6.14
## sample estimates:
## mean of the differences 
##                  -34.62

Day2WTTEST

## 
##  Paired t-test
## 
## data:  Day2Treatment$Data.E1DWheel and Day2NoTreatment$Data.E1DWheel
## t = -1.678, df = 8, p-value = 0.1319
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -90.11  14.21
## sample estimates:
## mean of the differences 
##                  -37.95

Day3WTTEST

## 
##  Paired t-test
## 
## data:  Day3Treatment$Data.E1DWheel and Day3NoTreatment$Data.E1DWheel
## t = -0.1134, df = 8, p-value = 0.9125
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -23.01  20.85
## sample estimates:
## mean of the differences 
##                  -1.079

data <- read.csv("Stats.csv")
Day1Treatment <- data[(data$Group.E1DMotion == 1) & (data$Day.E1DMotion == 1), 
    ]
Day1NoTreatment <- data[(data$Group.E1DMotion == 0) & (data$Day.E1DMotion == 
    1), ]
Day2Treatment <- data[(data$Group.E1DMotion == 1) & (data$Day.E1DMotion == 2), 
    ]
Day2NoTreatment <- data[(data$Group.E1DMotion == 0) & (data$Day.E1DMotion == 
    2), ]
Day3Treatment <- data[(data$Group.E1DMotion == 1) & (data$Day.E1DMotion == 3), 
    ]
Day3NoTreatment <- data[(data$Group.E1DMotion == 0) & (data$Day.E1DMotion == 
    3), ]
Day1MTTEST <- t.test(Day1Treatment$Data.E1DMotion, Day1NoTreatment$Data.E1DMotion, 
    paired = TRUE)
Day2MTTEST <- t.test(Day2Treatment$Data.E1DMotion, Day2NoTreatment$Data.E1DMotion, 
    paired = TRUE)
Day3MTTEST <- t.test(Day3Treatment$Data.E1DMotion, Day3NoTreatment$Data.E1DMotion, 
    paired = TRUE)

Day1MTTEST

## 
##  Paired t-test
## 
## data:  Day1Treatment$Data.E1DMotion and Day1NoTreatment$Data.E1DMotion
## t = -1.634, df = 8, p-value = 0.1408
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -77.43  13.20
## sample estimates:
## mean of the differences 
##                  -32.11

Day2MTTEST

## 
##  Paired t-test
## 
## data:  Day2Treatment$Data.E1DMotion and Day2NoTreatment$Data.E1DMotion
## t = 1.482, df = 8, p-value = 0.1766
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -30.67 141.03
## sample estimates:
## mean of the differences 
##                   55.18

Day3MTTEST

## 
##  Paired t-test
## 
## data:  Day3Treatment$Data.E1DMotion and Day3NoTreatment$Data.E1DMotion
## t = 0.8609, df = 8, p-value = 0.4144
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -14.96  32.79
## sample estimates:
## mean of the differences 
##                   8.914