1. Fisiologistas do exercício às vezes se referem a uma “zona vermelha”, que corresponde a um período no qual os jogadores de uma equipe estão mais propensos a sofrerem lesões pois estão fatigados. Quando um jogador atinge a zona vermelha, é uma boa ideia descansá-lo por um jogo ou dois. Um time de futebol da primeira divisão registrou quantos jogos consecutivos seus 11 titulares suportaram antes de atingir a zona vermelha, e os resultados foram: 10, 16, 8, 9, 6, 8, 9, 11, 12, 19, 5. Calcule a média, desvio padrão, mediana e amplitude interquartílica. Represente os dados graficamente.
games <- c(10, 16, 8, 9, 6, 8, 9, 11, 12, 19, 5)
  1. Média
## [1] 10.27273
  1. Desvio padrão
## [1] 4.14948
  1. Mediana
## [1] 9
  1. Amplitude interquartílica
quantile(games)
##   0%  25%  50%  75% 100% 
##  5.0  8.0  9.0 11.5 19.0

Distância interquartis: 3.5

  1. Celebridades parecem estar sempre se divorciando. A duração (aproximada) do casamento de algumas celebridades, em dias, foi de: 240 (J-Lo e Cris Judd), 144 (Charlie Sheen e Donna Peele), 143 (Pamela Anderson e Kid Rock), 72 (Kim Kardashian e Kris Humphries – se é que podemos chamá-la de celebridade), 30 (Drew Barrymore e Jeremy Thomas), 26 (Axl Rose e Erin Everly), 2 (Britney Spears e Jason Alexander), 150 (Drew Barrymore novamente, mas dessa vez com Tom Green), 14 (Eddie Murphy e Tracy Edmonds), 150 (Renee Zellweger e Kenny Chesney), 1657 (Jennifer Aniston e Brad Pitt). Calcule a média, mediana, desvio padrão, amplitude e amplitude interquartílica para a duração dos casamentos desses famosos.
duration <- c(240, 144, 143, 72, 30, 26, 2, 150, 14, 150, 1657)
  1. Média
## [1] 238.9091
  1. Mediana
## [1] 143
  1. Desvio padrão
## [1] 476.292
  1. Amplitude interquartílica
quantile(duration, c(1,3)/4)
## 25% 75% 
##  28 150

Amplitude interquartis: 122

  1. Repita o solicitado no exercício anterior, mas dessa vez excluindo o valor referente ao casamento de Jennifer Aniston e Brad Pitt. Quanto isso afeta a média, mediana, amplitude, amplitude interquartílica e desvio padrão? O que a diferença entre os valores obtidos para o exercício 2 e exercício 3 nos dizem acerca da influência de valores extremos num conjunto de dados?
duration <- c(240, 144, 143, 72, 30, 26, 2, 150, 14, 150)
  1. Média
## [1] 97.1
  1. Mediana
## [1] 107.5
  1. Desvio padrão
## [1] 79.20501
  1. Amplitude interquartílica
##   25%   75% 
##  27.0 148.5

Distância interquartis: 141.5

  1. Vinte e um fumantes foram avaliados para um teste de resistência ergométrico, com a esteira programada para velocidade máxima. O tempo em segundos para que cada um desistisse em exaustão foi de: 18, 16, 18, 24, 23, 22, 22, 23, 26, 29, 32, 34, 34, 36, 36, 43, 42, 49, 46, 46, 57. Calcule a moda, mediana, média, quartis inferior e superior, amplitude e amplitude interquartílica. Dada distribuição dos dados, existe algum valor que possa ser considerado outlier? Justifique com a definição de outlier e a representação gráfica dos dados por meio de um box-plot.
exaustion <- c(18, 16, 18, 24, 23, 22, 22, 23, 26, 29, 32, 34, 34, 36, 36, 43, 42, 49, 46, 46, 57)

  1. Moda

  2. Mediana

## [1] 32
  1. Média
## [1] 32.19048
  1. Quartis
##   0%  25%  50%  75% 100% 
##   16   23   32   42   57

  1. Ainda em referências aos dados do exercício anterior, calcule a soma dos quadrados dos erros, variância e desvio padrão dos dados.