Trabalhando com a saída do R (2)
Pensando sobre a pergunta científica de pesquisa, se o QI fosse causado apenas pela genética, esperaríamos que a inclinação da reta entre os dois conjuntos de gêmeos fosse 1. Testar o valor hipotético de inclinação igual a 1 pode ser feito criando uma nova estatística de teste que avalia quão distante a inclinação observada está do valor hipotético de 1.
$$new_t = \frac{slope - 1}{SE}$$
Se a hipótese de que a inclinação é igual a 1 for verdadeira, então a nova estatística de teste terá uma distribuição t, que podemos usar para calcular um p-valor.
O termo biológico do modelo está disponível como biological_term.
Este exercício faz parte do curso
Inferência para Regressão Linear em R
Instruções do exercício
- Calcule os graus de liberdade do conjunto de dados
twins. - Calcule o p-valor bilateral para a hipótese alternativa de que a inclinação verdadeira é diferente de 1. Construa o cálculo em etapas.
- Calcule a estatística de teste como o
estimateda inclinação menos1, tudo dividido pelo erro-padrão. - Calcule o p-valor unilateral da estatística de teste usando a função de distribuição acumulada da distribuição t,
pt(), notest_statistic, com os graus de liberdade que você acabou de calcular. - Calcule o p-valor bilateral como o dobro do p-valor unilateral.
- Calcule a estatística de teste como o
Exercício interativo prático
Experimente este exercício completando este código de exemplo.
# Calculate the degrees of freedom of twins
degrees_of_freedom <- nrow(twins) - 2
biological_term %>%
mutate(
# Calculate the test statistic
test_statistic = ___,
# Calculate its one-sided p-value
one_sided_p_value_of_test_statistic = ___,
# ... and its two-sided p-value
two_sided_p_value_of_test_statistic = ___
)