Quanto tempo duram 30 segundos?

Coleta de dados

Vocês irão trabalhar em grupos:

  • Um colega (A) irá ficar responsável por iniciar e finalizar o cronômetro (use o do celular, certifique-se de que saiba usar antes do experimento).

  • O colega A, responsável pelo cronômetro, tem que garantir que nenhum outro colega veja o cronômetro durante o experimento.

  • O outro colega (B) irá dizer COMECE e, depois do que JULGAR serem 30 segundos, irá dizer PARE, no que o colega (A) com o cronômetro irá parar imediatamente.

  • O colega A irá anotar o resultado: tempo que se passou de fato e o sexo do colega.

  • O colega A irá repetir o procedimento com os demais membros do grupo.

  • os dados deverão ser transferidos para a lousa

Análise descritiva

Apresente, lado a lado, com o mesmo eixo-y, um boxplot para os dados do sexo feminino e outro para os dados do sexo masculino.

Dados coletados - 09/08/2017 - ME414E

feminino <- sort(c(33.34,27.35,33.04,22.45,33.77,32.14,26.2,25.08,32.35,31.05,24.99,26.86,
              27.63,24.24,26.39,33,34,29.92,32.92,24.47,28.28,28.21,24.21,31.09,28.39,
              25,31.35,23,31,22.53,28.65,30.55,23.75,32.98,18.53,29.05,27,34.21,23.1,
              37.88,31.94,25.51,29.65,46.98,36.45,21.87,35.34,27.94,26.88))
feminino
##  [1] 18.53 21.87 22.45 22.53 23.00 23.10 23.75 24.21 24.24 24.47 24.99
## [12] 25.00 25.08 25.51 26.20 26.39 26.86 26.88 27.00 27.35 27.63 27.94
## [23] 28.21 28.28 28.39 28.65 29.05 29.65 29.92 30.55 31.00 31.05 31.09
## [34] 31.35 31.94 32.14 32.35 32.92 32.98 33.00 33.04 33.34 33.77 34.00
## [45] 34.21 35.34 36.45 37.88 46.98
mean(feminino)
## [1] 29.03082

Dados coletados - 09/08/2017 - ME414E

median(feminino)
## [1] 28.39

Foram coletados dados de 49 mulheres.

Média: 29.03

Mediana: 28.39

Dados coletados - 09/08/2017 - ME414E

library(aplpack)
stem.leaf(feminino,m=1)
## 1 | 2: represents 12
##  leaf unit: 1
##             n: 49
##     1    1 | 8
##   (28)   2 | 1223334444555666677778888999
##    20    3 | 0111112222333344567
##     1    4 | 6

Dados coletados - 09/08/2017 - ME414E

masculino <- sort(c(26.51,30.99,28.4,31.8,28.86,28.25,28.74,23.72,36.93,32.94
                    ,39.18,29.47,22.37,25.17,16.35,26,21,32,34,31,39.03,28.95,
                    37.05,32.82,32.92,35.45,27.6,24.71,30.76,22.7,20.1,40.65,31.02,
                    34.69,32.88,28.18,35.85,22.35,32.28,30.71,21.78,29.73,28.32,
                    35.3,42.35,32.88,45.99,31.43,37.34,28.14,30.44,26.05,34.22,
                    29.84,44.1,32.08,24.48,30.45,32.65,27.98,31.83,34.42,27.48,
                    33.63,32.86,33.92))
masculino
##  [1] 16.35 20.10 21.00 21.78 22.35 22.37 22.70 23.72 24.48 24.71 25.17
## [12] 26.00 26.05 26.51 27.48 27.60 27.98 28.14 28.18 28.25 28.32 28.40
## [23] 28.74 28.86 28.95 29.47 29.73 29.84 30.44 30.45 30.71 30.76 30.99
## [34] 31.00 31.02 31.43 31.80 31.83 32.00 32.08 32.28 32.65 32.82 32.86
## [45] 32.88 32.88 32.92 32.94 33.63 33.92 34.00 34.22 34.42 34.69 35.30
## [56] 35.45 35.85 36.93 37.05 37.34 39.03 39.18 40.65 42.35 44.10 45.99
mean(masculino)
## [1] 30.81924

Dados coletados - 09/08/2017 - ME414E

median(masculino)
## [1] 30.995

Foram coletados dados de 66 homens

Média: 30.82

Mediana: 30.995

Dados coletados - 09/08/2017 - ME414E

library(aplpack)
stem.leaf(masculino,m=1)
## 1 | 2: represents 12
##  leaf unit: 1
##             n: 66
## LO: 16.35
##    28    2 | 011222344566677788888888999
##   (34)   3 | 0000011111222222222233444455567799
##     4    4 | 0245

Dados coletados - 09/08/2017 - ME414E

boxplot(list(feminino=feminino,masculino=masculino),type=2)
abline(h=30,col="red")

Usando o R online (sem instalar)

Mais sobre o R e RStudio

Slides produzidos por:

  • Samara Kiihl