In: Math
Perform t-test on eRPM for strategy A and B. H0: A = B vs. H1: A != B (Two-sided t-test) What is the p-value?
| Strategy | Date | eRPM | 
| A | 15-Jun-14 | 3.47 | 
| A | 16-Jun-14 | 3.25 | 
| A | 17-Jun-14 | 3.32 | 
| A | 18-Jun-14 | 3.46 | 
| A | 19-Jun-14 | 3.58 | 
| A | 20-Jun-14 | 3.48 | 
| A | 21-Jun-14 | 3.48 | 
| A | 22-Jun-14 | 3.46 | 
| A | 23-Jun-14 | 3.34 | 
| A | 24-Jun-14 | 3.33 | 
| A | 25-Jun-14 | 3.37 | 
| A | 26-Jun-14 | 3.53 | 
| A | 27-Jun-14 | 3.67 | 
| A | 28-Jun-14 | 3.83 | 
| A | 29-Jun-14 | 3.78 | 
| A | 30-Jun-14 | 3.48 | 
| B | 15-Jun-14 | 3.34 | 
| B | 16-Jun-14 | 3.3 | 
| B | 17-Jun-14 | 3.33 | 
| B | 18-Jun-14 | 3.6 | 
| B | 19-Jun-14 | 3.85 | 
| B | 20-Jun-14 | 3.89 | 
| B | 21-Jun-14 | 3.69 | 
| B | 22-Jun-14 | 3.64 | 
| B | 23-Jun-14 | 3.6 | 
| B | 24-Jun-14 | 3.42 | 
| B | 25-Jun-14 | 3.41 | 
| B | 26-Jun-14 | 3.72 | 
| B | 27-Jun-14 | 3.94 | 
| B | 28-Jun-14 | 4.07 | 
| B | 29-Jun-14 | 4.05 | 
| B | 30-Jun-14 | 3.69 | 
code:
library(readxl)
data1<-read_excel(path="C:/Users/HP/Desktop/Book2.xlsx")
summary(data1)
t.test(eRPM~Strategy,data=data1)
output:

Analysis:
Ho: meanA = meanB
H1: meanA =/= meanB
t=-2.2542
p-value = 0.033
With t(25) = -2.2542, p<5%, i reject ho and conclude that meanA =/= meanB