R project
Teste de independência ou homogeneidade
xxxxxxxxxx
plantas <- matrix(c(120, 50,
60, 50,
10, 100 #depois do 100 não tem vírgula
),ncol=2,byrow=TRUE)
colnames(plantas) <- c("Sombra","Sol")
rownames(plantas) <- c("10-20cm","20-30cm","30-40cm")
plantas <- as.table(plantas)
chisq.test(plantas, correct=FALSE)
Teste de ajustamento
xxxxxxxxxx
dixas_por_especie <- c(24, 32, 10, 9)
chisq.test(dixas_por_especie, p=c(1/4, 1/4, 1/4, 1/4), correct=FALSE)
Usa-se «correct=FALSE» só para produzir resultados iguais aos dos slides não sendo necessário usar no geral.