R Console Page 1
> #paired sample data
> #before , after paired=t
>
> before<-c(22,12,34,12,51)
> after<-c(12,3,13,44,12)
> [Link](before,after,paired=T)
Paired t-test
data: before and after
t = 0.80527, df = 4, p-value = 0.4658
alternative hypothesis: true mean difference is not equal to
0
95 percent confidence interval:
-23.00957 41.80957
sample estimates:
mean difference
9.4
> [Link](before,after,paired=T)
Wilcoxon signed rank exact test
data: before and after
V = 11, p-value = 0.4375
alternative hypothesis: true location shift is not equal to
0
>