Qual média de propósito de empréstimo é diferente?

Antes de analisar outros fatores além de purpose_recode que podem influenciar o valor financiado do empréstimo, vamos verificar quais médias de purpose_recode são diferentes. Este é o teste pós-hoc mencionado no exercício anterior.

O resultado daquele teste de ANOVA foi estatisticamente significativo, com um p-valor muito baixo. Isso significa que podemos rejeitar a hipótese nula e aceitar a hipótese alternativa de que pelo menos uma média é diferente. Mas qual?

Devemos usar o teste HSD de Tukey, do inglês Honest Significant Difference. Para executar o teste HSD de Tukey no R, você pode usar TukeyHSD():

TukeyHSD(aov_model, "independent_variable_name", conf.level = 0.9)

Isso executaria o teste HSD de Tukey em um aov_model, observando uma "independent_variable_name" específica, com conf.level de 90%.

Este exercício faz parte do curso

Planejamento de Experimentos em R

Ver curso

Instruções do exercício

Construa um modelo usando aov() que avalie funded_amnt por purpose_recode. Salve como purpose_aov.
Use TukeyHSD() para realizar o teste HSD de Tukey em purpose_aov com nível de confiança de 0,95. Salve em um objeto chamado tukey_output.
Deixe tukey_output em formato arrumado com tidy() do pacote broom (que já foi carregado para você).

Exercício interativo prático

Experimente este exercício completando este código de exemplo.

# Use aov() to build purpose_aov
___ <- aov(___ ~ ___, data = ___)

# Conduct Tukey's HSD test to create tukey_output
___ <- TukeyHSD(___, "___", conf.level = ___)

# Tidy tukey_output to make sense of the results
tidy(___)

Editar e executar o código