Correlações e testes t

R para Usuários de SAS

Melinda Higgins, PhD

Research Professor/Senior Biostatistician Emory University

Correlação: comparando SAS e R

proc corr do SAS como corr.test do pacote psych no R

R para Usuários de SAS

códigos SAS e R para correlações

R para Usuários de SAS

Correlações com o pacote psych

# Correlações com psych::corr.test()
daviskeep %>%
  select(bmi, weight, height) %>%
  psych::corr.test()
Call:psych::corr.test(x = .)
Correlation matrix
        bmi weight height
bmi    1.00   0.88   0.38
weight 0.88   1.00   0.77
height 0.38   0.77   1.00
Sample Size
[1] 199
Probability values (Entries above the
diagonal are adjusted for multiple tests.)
       bmi weight height
bmi      0      0      0
weight   0      0      0
height   0      0      0
R para Usuários de SAS

Matriz de dispersão no SAS e no R

instrução plots matrix do proc corr do SAS e ggpairs do pacote GGally

R para Usuários de SAS

códigos SAS e R para criar matriz de dispersão

R para Usuários de SAS

Matriz de dispersão - função GGally::ggpairs()

 

 

# Matriz com GGally::ggpairs()
daviskeep %>%
  select(bmi, weight, height) %>%
  GGally::ggpairs()

matriz de dispersão usando a função ggpairs do pacote GGally

R para Usuários de SAS

Matriz de dispersão - ggpairs por grupo

 

 

# Colorir pontos por sexo
daviskeep %>%
  select(bmi, weight, height, sex) %>%
  GGally::ggpairs(aes(color = sex))

matriz de dispersão usando ggpairs do pacote GGally por sexo

R para Usuários de SAS

Estatísticas descritivas por grupo

Sem contagem por grupo

# Obter média e dp de bmi por sexo
daviskeep %>% group_by(sex) %>%
  select(sex, bmi) %>%
  summarise(across(everything(),
                   list(mean = ~ mean(.x),
                        sd = ~ sd(.x))))
# A tibble: 2 × 3
  sex   bmi_mean bmi_sd
  <fct>    <dbl>  <dbl>
1 F         21.0   2.18
2 M         23.9   3.12

Com contagem por grupo

# Adicionar N = n(), obter média e dp de bmi por sexo
daviskeep %>% group_by(sex) %>%
  select(sex, bmi) %>%
  summarise(across(everything(), 
                   list(mean = ~ mean(.x), 
                        sd = ~ sd(.x))),
            N = n())
# A tibble: 2 × 4
  sex   bmi_mean bmi_sd     N
  <fct>    <dbl>  <dbl> <int>
1 F         21.0   2.18   111
2 M         23.9   3.12    88
1 https://dplyr.tidyverse.org/reference/context.html
R para Usuários de SAS

Testes t no SAS e no R

proc ttest do SAS similar a var.test e t.test no R

R para Usuários de SAS

códigos SAS e R para testes t combinados e não combinados

R para Usuários de SAS

códigos SAS e R para testes t combinados e não combinados

R para Usuários de SAS

códigos SAS e R para testes t combinados e não combinados

R para Usuários de SAS

Testes t - verificar variâncias iguais

# Realizar teste de variâncias iguais
var.test(bmi ~ sex, data = daviskeep)
    F test to compare two variances

data:  bmi by sex
F = 0.48637, num df = 110, denom df = 87, p-value = 0.0003668

alternative hypothesis: true ratio of variances is not equal to 1

95 percent confidence interval:
 0.3244691 0.7221946
sample estimates:
ratio of variances
         0.4863699
R para Usuários de SAS

Testes t - combinado e não combinado

# Teste t NÃO COMBINADO de bmi por sexo
t.test(bmi ~ sex,
       data = daviskeep)
Welch Two Sample t-test

data:  bmi by sex
t = -7.5158, df = 149.45,
  p-value = 4.819e-12
alternative hypothesis: true difference
  in means is not equal to 0
95 percent confidence interval:
 -3.716353 -2.169035
sample estimates:
mean in group F mean in group M
       20.95632        23.89901
# Teste t COMBINADO de bmi por sexo
t.test(bmi ~ sex, data = daviskeep,
       var.equal = TRUE)
    Two Sample t-test

data:  bmi by sex
t = -7.8239, df = 197,
  p-value = 3.055e-13
alternative hypothesis: true difference
  in means is not equal to 0
95 percent confidence interval:
 -3.684428 -2.200960
sample estimates:
mean in group F mean in group M
       20.95632        23.89901
R para Usuários de SAS

Vamos explorar relações bivariadas em abalones!

R para Usuários de SAS

Preparing Video For Download...