Erro no teste de qui-quadrado

Olá pessoal, eu não estou conseguindo fazer a tabela do teste de qui-quadrado adequadamente.

Quando eu faço a tabela, esta aparece como se todos os ninhos em árvores fossem não predados, e todos os ninhos no solo fossem predados.
Até quando uso a função View vejo que os dados estão, realmente, errados. Mas não há nada de errado no arquivo original.
Não consegui saber o que está acontecendo.

Script:

################################
#Módulo 5 #
#Paulo Henrique #
#R para Biologia da Conservação#
#Qui quadrado

#Determinando o diretório de trabalho
setwd("C:/Estatistica/Workshop/Modulo5")
dir()
#Carregando os dados
dados<-read.table("ninhos.txt", h=T)
head(dados)
summary(dados)
View(dados)

#Ajsutando nomes de classes e variáveis
#No dataframe, árvore estava sem acento
levels(dados$Altura)
dados$Altura<-factor(dados$Altura, labels=c("árvore", "solo"))

levels(dados$Predado)
dados$Predado<-factor(dados$Predado, labels=c("sim", "não"))

#Ajustando o nome da variável Predado para Predação

names(dados)[3]<-"Predação"

#Vamos começar criando uma tabela

tabela.ninhos<-table(dados$Altura, dados$Predação)
tabela.ninhos