setwd("C:/ESTHER/Fabiola")
dadosVazao = read.csv("vazao.txt", sep = "\t")
t.test(dadosVazao$CONV, dadosVazao$MIRI)
##
## Welch Two Sample t-test
##
## data: dadosVazao$CONV and dadosVazao$MIRI
## t = 0.6823, df = 20.82, p-value = 0.5025
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
## -0.1710 0.3378
## sample estimates:
## mean of x mean of y
## 2.862 2.778
plot(c(1:12), dadosVazao$CONV, ylim = range(1:10))
lm1 <- lm(dadosVazao$CONV ~ c(1:12))
abline(lm1, lwd = 2, col = "red")
points(c(1:12), dadosVazao$MIRI, col = "green")
lm2 <- lm(dadosVazao$CONV ~ c(1:12))
abline(lm1, lwd = 2, col = "green")
BLOCOS CONV MIRI
1 3.181 2.690
2 2.649 2.899
3 2.911 2.970
4 2.497 2.304
9 3.082 3.160
5 2.438 2.400
6 2.346 2.648
7 3.201 3.078
8 2.903 2.990
10 2.905 2.692
11 2.800 2.658
12 3.429 2.852