lab8 - Heitor Faria - Lab 8(Mais Inferncia para dados...

This preview shows page 1 - 4 out of 15 pages.

Lab 8 - (Mais) Inferência para dados numéricos Professor Dr. Donald Pianto 14 de setembro, 2016 Aluno: Heitor Medrado de Faria Participantes: Carrega os dados ACS: load ("~/Documentos/LabsAlunos/lab8/acs.RData") Carrega a função inference: load ("~/Documentos/LabsAlunos/lab8/inference.RData") Exercícios: Exercício 1: A quantidade de casos totais era de 2000. A de empregados, 843. Os empregados correspondem à 42,15% do total. acs_emp <- acs %>% filter (trab == "empregado") Exercício 2: A média da renda de homens é significativamente superior à renda das mulheres (aproximadamente $56K contra $29K, respectivamente). O boxplot mostra o mesmo, tanto com valores típicos quanto outliers a maior para homens. qplot (y = renda, x = genero, data = acs_emp, geom = "boxplot") Lab 8 - (Mais) Inferência para dados numéricos ... 1 de 15 16/09/2016 15:19
Image of page 1
acs_emp %>% group_by (genero) %>% summarise (media = mean (renda), dp = sd (renda), n = n ()) ## # A tibble: 2 x 4 ## genero media dp n ## <fctr> <dbl> <dbl> <int> ## 1 masculino 55887.23 68767.88 470 ## 2 feminino 29243.70 32025.98 373 Exercício 3: Utilizando um intervalo de 95%, a diferença média entre as rendas dosgêneros masculino - feminino, estará em: $19605,3014, $33681,7672 em 95% dos casos. inference (y = renda, x = genero, data = acs_emp, statistic = "mean", type = " ci", method = "theoretical") Lab 8 - (Mais) Inferência para dados numéricos ... 2 de 15 16/09/2016 15:19
Image of page 2
## Response variable: numerical, Explanatory variable: categorical (2 levels) ## n_masculino = 470, y_bar_masculino = 55887.234, s_masculino = 68767.8814 ## n_feminino = 373, y_bar_feminino = 29243.6997, s_feminino = 32025.9848 ## 95% CI (masculino - feminino): (19605.3014 , 33681.7672) Exercício 4: Sim. A diferença é significante. As diferenças das médias chega a ser o dobro (100%) maior nas rendas de homens em face das mulheres. Exercício 5: A hipótese para teste seria verificar a diferença entre as médias universais estariam dentro do intervalo de confiança. H0: mu_masculino = mu_feminino HA: mu_masculino != mu_feminino Exercício 6: A grande significância é comprovada pelo teste, na medida que encontrado um p-valor (probabilidade de significância) menor que 0,0001 (muito menor que 5%, que é a rejeição da hipótese nula).
Image of page 3

Want to read all 15 pages?

Image of page 4

Want to read all 15 pages?

You've reached the end of your free preview.

Want to read all 15 pages?

  • Fall '15
  • Professor Dr. Donald Pianto, file:///home/hfaria/Documentos/LabsAlunos/lab8/l, diferenças médias, with pooled

What students are saying

  • Left Quote Icon

    As a current student on this bumpy collegiate pathway, I stumbled upon Course Hero, where I can find study resources for nearly all my courses, get online help from tutors 24/7, and even share my old projects, papers, and lecture notes with other students.

    Student Picture

    Kiran Temple University Fox School of Business ‘17, Course Hero Intern

  • Left Quote Icon

    I cannot even describe how much Course Hero helped me this summer. It’s truly become something I can always rely on and help me. In the end, I was not only able to survive summer classes, but I was able to thrive thanks to Course Hero.

    Student Picture

    Dana University of Pennsylvania ‘17, Course Hero Intern

  • Left Quote Icon

    The ability to access any university’s resources through Course Hero proved invaluable in my case. I was behind on Tulane coursework and actually used UCLA’s materials to help me move forward and get everything together on time.

    Student Picture

    Jill Tulane University ‘16, Course Hero Intern