Testes Qui-Quadrado

7. TESTES QUI-QUADRADO

7.6 EXERCÍCIOS

library(readxl)
df1 <- read_excel("chiTeste.xlsx", sheet="umaMoeda")
df2 <- read_excel("chiTeste.xlsx", sheet="duasMoedas")
df3 <- read_excel("chiTeste.xlsx", sheet="umDado")
df4 <- read_excel("chiTeste.xlsx", sheet="doisDados")

Uma Moeda

probabilidade <- c(0.50, 0.50)
chisq.test(as.numeric(df1), p = probabilidade)

## 
##  Chi-squared test for given probabilities
## 
## data:  as.numeric(df1)
## X-squared = 13.21, df = 1, p-value = 0.0002785

Duas Moedas

probabilidade <- c(1/4, 1/2, 1/4)
chisq.test(as.numeric(df2), p = probabilidade)

## 
##  Chi-squared test for given probabilities
## 
## data:  as.numeric(df2)
## X-squared = 1.5, df = 2, p-value = 0.4724

Um Dado

probabilidade <- c(1/6, 1/6, 1/6, 1/6, 1/6, 1/6)
chisq.test(as.numeric(df3), p = probabilidade)

## 
##  Chi-squared test for given probabilities
## 
## data:  as.numeric(df3)
## X-squared = 1.1176, df = 5, p-value = 0.9525

Dois Dados

probabilidade <- c(1/36, 2/36, 3/36, 4/36, 5/36, 6/36, 5/36, 4/36, 3/36, 2/36, 1/36)
chisq.test(as.numeric(df4), p = probabilidade)

## 
##  Chi-squared test for given probabilities
## 
## data:  as.numeric(df4)
## X-squared = 20.991, df = 10, p-value = 0.02116