## Load data from the google sheet
## La data se carga de la hoja "Tabla general original"
data <- readxl::read_xlsx("~/Desktop/Images and doc Journal/Documents to sent/updated_peerj-88207-data_pellets_N._brasilianus_Aug2023_complementary.xlsx")

## Show the data in a table
table(data$`Plastic presence`, data$pandemia)

## Test chi2
chisq.test(data$`Plastic presence`, data$pandemia)