A <- c(35, 43, 36, 39, 28, 28, 29, 25, 38, 27, 26, 32, 29, 40, 35, 41, 37, 31, 45, 34)
B <- c(27, 15, 4, 41, 49, 25, 10, 30)
R <- c(8, 14, 12, 15, 30, 32, 21, 20, 34, 7, 11, 24)
mean(A); sd(A); length(A)
[1] 33.9
[1] 5.94625
[1] 20
[1] 25.125
[1] 15.24502
[1] 8
[1] 19
[1] 9.36143
[1] 12