Por melhor média
> jose <- c(3,3,6,7,7,10,10,10,11,13,30)
> jose
[1] 3 3 6 7 7 10 10 10 11 13 30
> boxplot(jose)
> summary(jose)
Min. 1st Qu. Median Mean 3rd Qu. Max.
3.0 6.5 10.0 10.0 10.5 30.0
> shapiro.test(jose)
Shapiro-Wilk normality test
data: jose
W = 0.75321, p-value = 0.002289
> joseq <- c(7,7,10,10,10)
> summary(joseq)
Min. 1st Qu. Median Mean 3rd Qu. Max.
7.0 7.0 10.0 8.8 10.0 10.0
> joao <- c(7,8,9,10,10,11,11,12,13)
> joao
[1] 7 8 9 10 10 11 11 12 13
> boxplot(joao)
> 3*9/4
[1] 6.75
> (3*9)/4
[1] 6.75
> 9/4
[1] 2.25
> joaoq <- c(9,10,10,11)
> summary(joaoq)
Min. 1st Qu. Median Mean 3rd Qu. Max.
9.00 9.75 10.00 10.00 10.25 11.00
