## Classical example: Student's sleep data
mx <- 0.75
my <- 2.33
sx <- 1.789010
sy <- 2.002249
nx <- ny <- 10
TTestA(mx=mx, my=my, sx=sx, sy=sy, nx=nx, ny=ny)
# compare to
with(sleep, t.test(extra[group == 1], extra[group == 2]))
# use the one sample test for the differences instead of paired=TRUE option
x <- with(sleep, extra[group == 1])
y <- with(sleep, extra[group == 2])
TTestA(mx=mean(x-y), sx=sd(x-y), nx=length(x-y))
# compared to
t.test(x, y, paired = TRUE)
Run the code above in your browser using DataLab