# 5 Teste para duas amostras

## 5.1 Teste t não pareado

resp=rnorm(100,100,5)
trat=rep(c("A","B"),e=50)
test_two(trat,resp)
##
##  Welch Two Sample t-test
##
## data:  resp by trat
## t = 0.76294, df = 94.567, p-value = 0.4474
## alternative hypothesis: true difference in means between group A and group B is not equal to 0
## 95 percent confidence interval:
##  -1.194752  2.686099
## sample estimates:
## mean in group A mean in group B
##       100.46478        99.71911
## Warning in is.na(x): is.na() aplicado a um objeto diferente de lista ou vetor de
## tipo 'expression'

test_two(trat,resp,paired = TRUE)
##
##  Paired t-test
##
## data:  resp by trat
## t = 0.79174, df = 49, p-value = 0.4323
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -1.146981  2.638328
## sample estimates:
## mean of the differences
##               0.7456736
## Warning in is.na(x): is.na() aplicado a um objeto diferente de lista ou vetor de
## tipo 'expression'

## 5.3 Teste Wilcoxon

test_two(trat,resp,test = "w")
##
##  Wilcoxon rank sum test with continuity correction
##
## data:  resp by trat
## W = 1373, p-value = 0.3984
## alternative hypothesis: true location shift is not equal to 0
## Warning in is.na(x): is.na() aplicado a um objeto diferente de lista ou vetor de
## tipo 'expression'

test_two(trat,resp,paired = TRUE,test = "w")
##
##  Wilcoxon signed rank test with continuity correction
##
## data:  resp by trat
## V = 754, p-value = 0.2628
## alternative hypothesis: true location shift is not equal to 0
## Warning in is.na(x): is.na() aplicado a um objeto diferente de lista ou vetor de
## tipo 'expression'