paquetes <- c(
  "readxl",      # leer archivos .xlsx
  "dplyr",       # manipulación de datos
  "tidyr",       # transformación de datos
  "ggplot2",     # gráficos
  "janitor",     # tablas de frecuencia y % limpias
  "scales",      # formato de números/porcentajes en gráficos
  "stringr",     # manejo de texto
  "knitr",       # tablas para reportes
  "nnet"         # (lo usaremos más adelante para los modelos)
)

instalar_faltantes <- paquetes[!(paquetes %in% installed.packages()[,"Package"])]
if(length(instalar_faltantes) > 0) install.packages(instalar_faltantes)

# Cargar librerías
library(readxl)
library(dplyr)
## 
## Adjuntando el paquete: 'dplyr'
## The following objects are masked from 'package:stats':
## 
##     filter, lag
## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union
library(tidyr)
library(ggplot2)
library(janitor)
## 
## Adjuntando el paquete: 'janitor'
## The following objects are masked from 'package:stats':
## 
##     chisq.test, fisher.test
library(scales)
library(stringr)
library(knitr)
library(nnet)
library(readxl)
Base_anom <- read_excel("~/MAESTRIA EPIDEMIOLOGIA/PROYECTO FINAL ANOMALIAS CONGENITAS/Base_anom.xlsx")
## Warning: Coercing text to numeric in E5533 / R5533C5: '10'
## Warning: Coercing text to numeric in F5533 / R5533C6: '2'
## Warning: Coercing text to numeric in H5533 / R5533C8: '1'
## Warning: Coercing text to numeric in J5533 / R5533C10: '6'
## Warning: Coercing text to numeric in K5533 / R5533C11: '4'
## Warning: Coercing text to numeric in L5533 / R5533C12: '1'
## Warning: Coercing text to numeric in M5533 / R5533C13: '0'
## Warning: Coercing text to numeric in E5534 / R5534C5: '11'
## Warning: Coercing text to numeric in F5534 / R5534C6: '2'
## Warning: Coercing text to numeric in H5534 / R5534C8: '1'
## Warning: Coercing text to numeric in J5534 / R5534C10: '6'
## Warning: Coercing text to numeric in K5534 / R5534C11: '4'
## Warning: Coercing text to numeric in L5534 / R5534C12: '1'
## Warning: Coercing text to numeric in M5534 / R5534C13: '0'
## Warning: Coercing text to numeric in E5535 / R5535C5: '3'
## Warning: Coercing text to numeric in F5535 / R5535C6: '3'
## Warning: Coercing text to numeric in H5535 / R5535C8: '1'
## Warning: Coercing text to numeric in J5535 / R5535C10: '6'
## Warning: Coercing text to numeric in K5535 / R5535C11: '4'
## Warning: Coercing text to numeric in L5535 / R5535C12: '1'
## Warning: Coercing text to numeric in M5535 / R5535C13: '0'
## Warning: Coercing text to numeric in E5536 / R5536C5: '18'
## Warning: Coercing text to numeric in F5536 / R5536C6: '3'
## Warning: Coercing text to numeric in H5536 / R5536C8: '1'
## Warning: Coercing text to numeric in J5536 / R5536C10: '6'
## Warning: Coercing text to numeric in K5536 / R5536C11: '3'
## Warning: Coercing text to numeric in L5536 / R5536C12: '1'
## Warning: Coercing text to numeric in M5536 / R5536C13: '0'
## Warning: Coercing text to numeric in E5537 / R5537C5: '4'
## Warning: Coercing text to numeric in F5537 / R5537C6: '3'
## Warning: Coercing text to numeric in H5537 / R5537C8: '1'
## Warning: Coercing text to numeric in J5537 / R5537C10: '6'
## Warning: Coercing text to numeric in K5537 / R5537C11: '4'
## Warning: Coercing text to numeric in L5537 / R5537C12: '1'
## Warning: Coercing text to numeric in M5537 / R5537C13: '0'
## Warning: Coercing text to numeric in E5538 / R5538C5: '3'
## Warning: Coercing text to numeric in F5538 / R5538C6: '2'
## Warning: Coercing text to numeric in H5538 / R5538C8: '1'
## Warning: Coercing text to numeric in J5538 / R5538C10: '6'
## Warning: Coercing text to numeric in K5538 / R5538C11: '4'
## Warning: Coercing text to numeric in L5538 / R5538C12: '1'
## Warning: Coercing text to numeric in M5538 / R5538C13: '0'
## Warning: Coercing text to numeric in E5539 / R5539C5: '6'
## Warning: Coercing text to numeric in F5539 / R5539C6: '3'
## Warning: Coercing text to numeric in H5539 / R5539C8: '1'
## Warning: Coercing text to numeric in J5539 / R5539C10: '6'
## Warning: Coercing text to numeric in K5539 / R5539C11: '4'
## Warning: Coercing text to numeric in L5539 / R5539C12: '1'
## Warning: Coercing text to numeric in M5539 / R5539C13: '0'
## Warning: Coercing text to numeric in E5540 / R5540C5: '28'
## Warning: Coercing text to numeric in F5540 / R5540C6: '3'
## Warning: Coercing text to numeric in H5540 / R5540C8: '1'
## Warning: Coercing text to numeric in J5540 / R5540C10: '6'
## Warning: Coercing text to numeric in K5540 / R5540C11: '4'
## Warning: Coercing text to numeric in L5540 / R5540C12: '1'
## Warning: Coercing text to numeric in M5540 / R5540C13: '0'
## Warning: Coercing text to numeric in E5541 / R5541C5: '4'
## Warning: Coercing text to numeric in F5541 / R5541C6: '3'
## Warning: Coercing text to numeric in H5541 / R5541C8: '1'
## Warning: Coercing text to numeric in J5541 / R5541C10: '6'
## Warning: Coercing text to numeric in K5541 / R5541C11: '4'
## Warning: Coercing text to numeric in L5541 / R5541C12: '2'
## Warning: Coercing text to numeric in M5541 / R5541C13: '0'
## Warning: Coercing text to numeric in E5542 / R5542C5: '23'
## Warning: Coercing text to numeric in F5542 / R5542C6: '3'
## Warning: Coercing text to numeric in H5542 / R5542C8: '1'
## Warning: Coercing text to numeric in J5542 / R5542C10: '6'
## Warning: Coercing text to numeric in K5542 / R5542C11: '4'
## Warning: Coercing text to numeric in L5542 / R5542C12: '1'
## Warning: Coercing text to numeric in M5542 / R5542C13: '0'
## Warning: Coercing text to numeric in E5543 / R5543C5: '11'
## Warning: Coercing text to numeric in F5543 / R5543C6: '3'
## Warning: Coercing text to numeric in H5543 / R5543C8: '2'
## Warning: Coercing text to numeric in J5543 / R5543C10: '6'
## Warning: Coercing text to numeric in K5543 / R5543C11: '4'
## Warning: Coercing text to numeric in L5543 / R5543C12: '1'
## Warning: Coercing text to numeric in M5543 / R5543C13: '0'
## Warning: Coercing text to numeric in E5544 / R5544C5: '6'
## Warning: Coercing text to numeric in F5544 / R5544C6: '2'
## Warning: Coercing text to numeric in H5544 / R5544C8: '1'
## Warning: Coercing text to numeric in J5544 / R5544C10: '6'
## Warning: Coercing text to numeric in K5544 / R5544C11: '4'
## Warning: Coercing text to numeric in L5544 / R5544C12: '1'
## Warning: Coercing text to numeric in M5544 / R5544C13: '0'
## Warning: Coercing text to numeric in E5545 / R5545C5: '1'
## Warning: Coercing text to numeric in F5545 / R5545C6: '3'
## Warning: Coercing text to numeric in H5545 / R5545C8: '1'
## Warning: Coercing text to numeric in J5545 / R5545C10: '6'
## Warning: Coercing text to numeric in K5545 / R5545C11: '4'
## Warning: Coercing text to numeric in L5545 / R5545C12: '1'
## Warning: Coercing text to numeric in M5545 / R5545C13: '0'
## Warning: Coercing text to numeric in E5546 / R5546C5: '2'
## Warning: Coercing text to numeric in F5546 / R5546C6: '2'
## Warning: Coercing text to numeric in H5546 / R5546C8: '1'
## Warning: Coercing text to numeric in J5546 / R5546C10: '6'
## Warning: Coercing text to numeric in K5546 / R5546C11: '4'
## Warning: Coercing text to numeric in L5546 / R5546C12: '1'
## Warning: Coercing text to numeric in M5546 / R5546C13: '7'
## Warning: Coercing text to numeric in E5547 / R5547C5: '3'
## Warning: Coercing text to numeric in F5547 / R5547C6: '2'
## Warning: Coercing text to numeric in H5547 / R5547C8: '1'
## Warning: Coercing text to numeric in J5547 / R5547C10: '6'
## Warning: Coercing text to numeric in K5547 / R5547C11: '2'
## Warning: Coercing text to numeric in L5547 / R5547C12: '1'
## Warning: Coercing text to numeric in M5547 / R5547C13: '0'
## Warning: Coercing text to numeric in E5548 / R5548C5: '5'
## Warning: Coercing text to numeric in F5548 / R5548C6: '3'
## Warning: Coercing text to numeric in H5548 / R5548C8: '1'
## Warning: Coercing text to numeric in J5548 / R5548C10: '6'
## Warning: Coercing text to numeric in K5548 / R5548C11: '4'
## Warning: Coercing text to numeric in L5548 / R5548C12: '1'
## Warning: Coercing text to numeric in M5548 / R5548C13: '0'
## Warning: Coercing text to numeric in E5549 / R5549C5: '8'
## Warning: Coercing text to numeric in F5549 / R5549C6: '2'
## Warning: Coercing text to numeric in H5549 / R5549C8: '1'
## Warning: Coercing text to numeric in J5549 / R5549C10: '6'
## Warning: Coercing text to numeric in K5549 / R5549C11: '4'
## Warning: Coercing text to numeric in L5549 / R5549C12: '1'
## Warning: Coercing text to numeric in M5549 / R5549C13: '0'
## Warning: Coercing text to numeric in E5550 / R5550C5: '9'
## Warning: Coercing text to numeric in F5550 / R5550C6: '2'
## Warning: Coercing text to numeric in H5550 / R5550C8: '1'
## Warning: Coercing text to numeric in J5550 / R5550C10: '6'
## Warning: Coercing text to numeric in K5550 / R5550C11: '3'
## Warning: Coercing text to numeric in L5550 / R5550C12: '1'
## Warning: Coercing text to numeric in M5550 / R5550C13: '0'
## Warning: Coercing text to numeric in E5551 / R5551C5: '14'
## Warning: Coercing text to numeric in F5551 / R5551C6: '3'
## Warning: Coercing text to numeric in H5551 / R5551C8: '1'
## Warning: Coercing text to numeric in J5551 / R5551C10: '6'
## Warning: Coercing text to numeric in K5551 / R5551C11: '3'
## Warning: Coercing text to numeric in L5551 / R5551C12: '1'
## Warning: Coercing text to numeric in M5551 / R5551C13: '0'
## Warning: Coercing text to numeric in E5552 / R5552C5: '7'
## Warning: Coercing text to numeric in F5552 / R5552C6: '2'
## Warning: Coercing text to numeric in H5552 / R5552C8: '1'
## Warning: Coercing text to numeric in J5552 / R5552C10: '6'
## Warning: Coercing text to numeric in K5552 / R5552C11: '2'
## Warning: Coercing text to numeric in L5552 / R5552C12: '1'
## Warning: Coercing text to numeric in M5552 / R5552C13: '4'
## Warning: Coercing text to numeric in E5553 / R5553C5: '7'
## Warning: Coercing text to numeric in F5553 / R5553C6: '2'
## Warning: Coercing text to numeric in H5553 / R5553C8: '3'
## Warning: Coercing text to numeric in J5553 / R5553C10: '6'
## Warning: Coercing text to numeric in K5553 / R5553C11: '2'
## Warning: Coercing text to numeric in L5553 / R5553C12: '1'
## Warning: Coercing text to numeric in M5553 / R5553C13: '4'
## Warning: Coercing text to numeric in E5554 / R5554C5: '12'
## Warning: Coercing text to numeric in F5554 / R5554C6: '3'
## Warning: Coercing text to numeric in H5554 / R5554C8: '1'
## Warning: Coercing text to numeric in J5554 / R5554C10: '6'
## Warning: Coercing text to numeric in K5554 / R5554C11: '4'
## Warning: Coercing text to numeric in L5554 / R5554C12: '1'
## Warning: Coercing text to numeric in M5554 / R5554C13: '0'
## Warning: Coercing text to numeric in E5555 / R5555C5: '1'
## Warning: Coercing text to numeric in F5555 / R5555C6: '3'
## Warning: Coercing text to numeric in H5555 / R5555C8: '1'
## Warning: Coercing text to numeric in J5555 / R5555C10: '6'
## Warning: Coercing text to numeric in K5555 / R5555C11: '4'
## Warning: Coercing text to numeric in L5555 / R5555C12: '1'
## Warning: Coercing text to numeric in M5555 / R5555C13: '0'
## Warning: Coercing text to numeric in E5556 / R5556C5: '3'
## Warning: Coercing text to numeric in F5556 / R5556C6: '3'
## Warning: Coercing text to numeric in H5556 / R5556C8: '2'
## Warning: Coercing text to numeric in J5556 / R5556C10: '6'
## Warning: Coercing text to numeric in K5556 / R5556C11: '4'
## Warning: Coercing text to numeric in L5556 / R5556C12: '1'
## Warning: Coercing text to numeric in M5556 / R5556C13: '0'
## Warning: Coercing text to numeric in E5557 / R5557C5: '3'
## Warning: Coercing text to numeric in F5557 / R5557C6: '3'
## Warning: Coercing text to numeric in H5557 / R5557C8: '1'
## Warning: Coercing text to numeric in J5557 / R5557C10: '6'
## Warning: Coercing text to numeric in K5557 / R5557C11: '4'
## Warning: Coercing text to numeric in L5557 / R5557C12: '1'
## Warning: Coercing text to numeric in M5557 / R5557C13: '0'
## Warning: Coercing text to numeric in E5558 / R5558C5: '5'
## Warning: Coercing text to numeric in F5558 / R5558C6: '3'
## Warning: Coercing text to numeric in H5558 / R5558C8: '1'
## Warning: Coercing text to numeric in J5558 / R5558C10: '6'
## Warning: Coercing text to numeric in K5558 / R5558C11: '4'
## Warning: Coercing text to numeric in L5558 / R5558C12: '1'
## Warning: Coercing text to numeric in M5558 / R5558C13: '0'
## Warning: Coercing text to numeric in E5559 / R5559C5: '3'
## Warning: Coercing text to numeric in F5559 / R5559C6: '3'
## Warning: Coercing text to numeric in H5559 / R5559C8: '1'
## Warning: Coercing text to numeric in J5559 / R5559C10: '6'
## Warning: Coercing text to numeric in K5559 / R5559C11: '4'
## Warning: Coercing text to numeric in L5559 / R5559C12: '1'
## Warning: Coercing text to numeric in M5559 / R5559C13: '0'
## Warning: Coercing text to numeric in E5560 / R5560C5: '0'
## Warning: Coercing text to numeric in F5560 / R5560C6: '0'
## Warning: Coercing text to numeric in H5560 / R5560C8: '1'
## Warning: Coercing text to numeric in J5560 / R5560C10: '6'
## Warning: Coercing text to numeric in K5560 / R5560C11: '3'
## Warning: Coercing text to numeric in L5560 / R5560C12: '0'
## Warning: Coercing text to numeric in M5560 / R5560C13: '0'
## Warning: Coercing text to numeric in E5561 / R5561C5: '2'
## Warning: Coercing text to numeric in F5561 / R5561C6: '3'
## Warning: Coercing text to numeric in H5561 / R5561C8: '3'
## Warning: Coercing text to numeric in J5561 / R5561C10: '1'
## Warning: Coercing text to numeric in K5561 / R5561C11: '4'
## Warning: Coercing text to numeric in L5561 / R5561C12: '1'
## Warning: Coercing text to numeric in M5561 / R5561C13: '0'
## Warning: Coercing text to numeric in E5562 / R5562C5: '17'
## Warning: Coercing text to numeric in F5562 / R5562C6: '3'
## Warning: Coercing text to numeric in H5562 / R5562C8: '1'
## Warning: Coercing text to numeric in J5562 / R5562C10: '1'
## Warning: Coercing text to numeric in K5562 / R5562C11: '4'
## Warning: Coercing text to numeric in L5562 / R5562C12: '1'
## Warning: Coercing text to numeric in M5562 / R5562C13: '0'
## Warning: Coercing text to numeric in E5563 / R5563C5: '1'
## Warning: Coercing text to numeric in F5563 / R5563C6: '2'
## Warning: Coercing text to numeric in H5563 / R5563C8: '1'
## Warning: Coercing text to numeric in J5563 / R5563C10: '6'
## Warning: Coercing text to numeric in K5563 / R5563C11: '4'
## Warning: Coercing text to numeric in L5563 / R5563C12: '1'
## Warning: Coercing text to numeric in M5563 / R5563C13: '0'
## Warning: Coercing text to numeric in E5564 / R5564C5: '1'
## Warning: Coercing text to numeric in F5564 / R5564C6: '3'
## Warning: Coercing text to numeric in H5564 / R5564C8: '3'
## Warning: Coercing text to numeric in J5564 / R5564C10: '6'
## Warning: Coercing text to numeric in K5564 / R5564C11: '4'
## Warning: Coercing text to numeric in L5564 / R5564C12: '1'
## Warning: Coercing text to numeric in M5564 / R5564C13: '0'
## Warning: Coercing text to numeric in E5565 / R5565C5: '3'
## Warning: Coercing text to numeric in F5565 / R5565C6: '2'
## Warning: Coercing text to numeric in H5565 / R5565C8: '1'
## Warning: Coercing text to numeric in J5565 / R5565C10: '6'
## Warning: Coercing text to numeric in K5565 / R5565C11: '4'
## Warning: Coercing text to numeric in L5565 / R5565C12: '1'
## Warning: Coercing text to numeric in M5565 / R5565C13: '0'
## Warning: Coercing text to numeric in E5566 / R5566C5: '2'
## Warning: Coercing text to numeric in F5566 / R5566C6: '3'
## Warning: Coercing text to numeric in H5566 / R5566C8: '1'
## Warning: Coercing text to numeric in J5566 / R5566C10: '6'
## Warning: Coercing text to numeric in K5566 / R5566C11: '4'
## Warning: Coercing text to numeric in L5566 / R5566C12: '1'
## Warning: Coercing text to numeric in M5566 / R5566C13: '0'
## Warning: Coercing text to numeric in E5567 / R5567C5: '5'
## Warning: Coercing text to numeric in F5567 / R5567C6: '3'
## Warning: Coercing text to numeric in H5567 / R5567C8: '1'
## Warning: Coercing text to numeric in J5567 / R5567C10: '6'
## Warning: Coercing text to numeric in K5567 / R5567C11: '4'
## Warning: Coercing text to numeric in L5567 / R5567C12: '1'
## Warning: Coercing text to numeric in M5567 / R5567C13: '0'
## Warning: Coercing text to numeric in E5568 / R5568C5: '12'
## Warning: Coercing text to numeric in F5568 / R5568C6: '3'
## Warning: Coercing text to numeric in H5568 / R5568C8: '3'
## Warning: Coercing text to numeric in J5568 / R5568C10: '6'
## Warning: Coercing text to numeric in K5568 / R5568C11: '4'
## Warning: Coercing text to numeric in L5568 / R5568C12: '1'
## Warning: Coercing text to numeric in M5568 / R5568C13: '0'
## Warning: Coercing text to numeric in E5569 / R5569C5: '14'
## Warning: Coercing text to numeric in F5569 / R5569C6: '3'
## Warning: Coercing text to numeric in H5569 / R5569C8: '1'
## Warning: Coercing text to numeric in J5569 / R5569C10: '6'
## Warning: Coercing text to numeric in K5569 / R5569C11: '4'
## Warning: Coercing text to numeric in L5569 / R5569C12: '1'
## Warning: Coercing text to numeric in M5569 / R5569C13: '0'
## Warning: Coercing text to numeric in E5570 / R5570C5: '1'
## Warning: Coercing text to numeric in F5570 / R5570C6: '2'
## Warning: Coercing text to numeric in H5570 / R5570C8: '1'
## Warning: Coercing text to numeric in J5570 / R5570C10: '6'
## Warning: Coercing text to numeric in K5570 / R5570C11: '4'
## Warning: Coercing text to numeric in L5570 / R5570C12: '1'
## Warning: Coercing text to numeric in M5570 / R5570C13: '0'
## Warning: Coercing text to numeric in E5571 / R5571C5: '10'
## Warning: Coercing text to numeric in F5571 / R5571C6: '3'
## Warning: Coercing text to numeric in H5571 / R5571C8: '1'
## Warning: Coercing text to numeric in J5571 / R5571C10: '6'
## Warning: Coercing text to numeric in K5571 / R5571C11: '4'
## Warning: Coercing text to numeric in L5571 / R5571C12: '1'
## Warning: Coercing text to numeric in M5571 / R5571C13: '0'
## Warning: Coercing text to numeric in E5572 / R5572C5: '2'
## Warning: Coercing text to numeric in F5572 / R5572C6: '3'
## Warning: Coercing text to numeric in H5572 / R5572C8: '1'
## Warning: Coercing text to numeric in J5572 / R5572C10: '6'
## Warning: Coercing text to numeric in K5572 / R5572C11: '4'
## Warning: Coercing text to numeric in L5572 / R5572C12: '1'
## Warning: Coercing text to numeric in M5572 / R5572C13: '0'
## Warning: Coercing text to numeric in E5573 / R5573C5: '4'
## Warning: Coercing text to numeric in F5573 / R5573C6: '3'
## Warning: Coercing text to numeric in H5573 / R5573C8: '3'
## Warning: Coercing text to numeric in J5573 / R5573C10: '6'
## Warning: Coercing text to numeric in K5573 / R5573C11: '4'
## Warning: Coercing text to numeric in L5573 / R5573C12: '1'
## Warning: Coercing text to numeric in M5573 / R5573C13: '0'
## Warning: Coercing text to numeric in E5574 / R5574C5: '4'
## Warning: Coercing text to numeric in F5574 / R5574C6: '3'
## Warning: Coercing text to numeric in H5574 / R5574C8: '1'
## Warning: Coercing text to numeric in J5574 / R5574C10: '6'
## Warning: Coercing text to numeric in K5574 / R5574C11: '4'
## Warning: Coercing text to numeric in L5574 / R5574C12: '1'
## Warning: Coercing text to numeric in M5574 / R5574C13: '0'
## Warning: Coercing text to numeric in E5575 / R5575C5: '4'
## Warning: Coercing text to numeric in F5575 / R5575C6: '3'
## Warning: Coercing text to numeric in H5575 / R5575C8: '1'
## Warning: Coercing text to numeric in J5575 / R5575C10: '6'
## Warning: Coercing text to numeric in K5575 / R5575C11: '4'
## Warning: Coercing text to numeric in L5575 / R5575C12: '1'
## Warning: Coercing text to numeric in M5575 / R5575C13: '0'
## Warning: Coercing text to numeric in E5576 / R5576C5: '6'
## Warning: Coercing text to numeric in F5576 / R5576C6: '3'
## Warning: Coercing text to numeric in H5576 / R5576C8: '1'
## Warning: Coercing text to numeric in J5576 / R5576C10: '6'
## Warning: Coercing text to numeric in K5576 / R5576C11: '4'
## Warning: Coercing text to numeric in L5576 / R5576C12: '1'
## Warning: Coercing text to numeric in M5576 / R5576C13: '0'
## Warning: Coercing text to numeric in E5577 / R5577C5: '2'
## Warning: Coercing text to numeric in F5577 / R5577C6: '2'
## Warning: Coercing text to numeric in H5577 / R5577C8: '1'
## Warning: Coercing text to numeric in J5577 / R5577C10: '6'
## Warning: Coercing text to numeric in K5577 / R5577C11: '4'
## Warning: Coercing text to numeric in L5577 / R5577C12: '1'
## Warning: Coercing text to numeric in M5577 / R5577C13: '0'
## Warning: Coercing text to numeric in E5578 / R5578C5: '3'
## Warning: Coercing text to numeric in F5578 / R5578C6: '2'
## Warning: Coercing text to numeric in H5578 / R5578C8: '3'
## Warning: Coercing text to numeric in J5578 / R5578C10: '6'
## Warning: Coercing text to numeric in K5578 / R5578C11: '4'
## Warning: Coercing text to numeric in L5578 / R5578C12: '1'
## Warning: Coercing text to numeric in M5578 / R5578C13: '0'
## Warning: Coercing text to numeric in E5579 / R5579C5: '3'
## Warning: Coercing text to numeric in F5579 / R5579C6: '2'
## Warning: Coercing text to numeric in H5579 / R5579C8: '1'
## Warning: Coercing text to numeric in J5579 / R5579C10: '6'
## Warning: Coercing text to numeric in K5579 / R5579C11: '4'
## Warning: Coercing text to numeric in L5579 / R5579C12: '1'
## Warning: Coercing text to numeric in M5579 / R5579C13: '0'
## Warning: Coercing text to numeric in E5580 / R5580C5: '11'
## Warning: Coercing text to numeric in F5580 / R5580C6: '3'
## Warning: Coercing text to numeric in H5580 / R5580C8: '1'
## Warning: Coercing text to numeric in J5580 / R5580C10: '6'
## Warning: Coercing text to numeric in K5580 / R5580C11: '4'
## Warning: Coercing text to numeric in L5580 / R5580C12: '1'
## Warning: Coercing text to numeric in M5580 / R5580C13: '0'
## Warning: Coercing text to numeric in E5581 / R5581C5: '1'
## Warning: Coercing text to numeric in F5581 / R5581C6: '2'
## Warning: Coercing text to numeric in H5581 / R5581C8: '1'
## Warning: Coercing text to numeric in J5581 / R5581C10: '6'
## Warning: Coercing text to numeric in K5581 / R5581C11: '4'
## Warning: Coercing text to numeric in L5581 / R5581C12: '1'
## Warning: Coercing text to numeric in M5581 / R5581C13: '3'
## Warning: Coercing text to numeric in E5582 / R5582C5: '10'
## Warning: Coercing text to numeric in F5582 / R5582C6: '2'
## Warning: Coercing text to numeric in H5582 / R5582C8: '2'
## Warning: Coercing text to numeric in J5582 / R5582C10: '6'
## Warning: Coercing text to numeric in K5582 / R5582C11: '4'
## Warning: Coercing text to numeric in L5582 / R5582C12: '1'
## Warning: Coercing text to numeric in M5582 / R5582C13: '0'
## Warning: Coercing text to numeric in E5583 / R5583C5: '1'
## Warning: Coercing text to numeric in F5583 / R5583C6: '3'
## Warning: Coercing text to numeric in H5583 / R5583C8: '1'
## Warning: Coercing text to numeric in J5583 / R5583C10: '6'
## Warning: Coercing text to numeric in K5583 / R5583C11: '4'
## Warning: Coercing text to numeric in L5583 / R5583C12: '1'
## Warning: Coercing text to numeric in M5583 / R5583C13: '0'
## Warning: Coercing text to numeric in E5584 / R5584C5: '19'
## Warning: Coercing text to numeric in F5584 / R5584C6: '3'
## Warning: Coercing text to numeric in H5584 / R5584C8: '3'
## Warning: Coercing text to numeric in J5584 / R5584C10: '6'
## Warning: Coercing text to numeric in K5584 / R5584C11: '4'
## Warning: Coercing text to numeric in L5584 / R5584C12: '1'
## Warning: Coercing text to numeric in M5584 / R5584C13: '0'
## Warning: Coercing text to numeric in E5585 / R5585C5: '6'
## Warning: Coercing text to numeric in F5585 / R5585C6: '2'
## Warning: Coercing text to numeric in H5585 / R5585C8: '1'
## Warning: Coercing text to numeric in J5585 / R5585C10: '6'
## Warning: Coercing text to numeric in K5585 / R5585C11: '4'
## Warning: Coercing text to numeric in L5585 / R5585C12: '1'
## Warning: Coercing text to numeric in M5585 / R5585C13: '0'
## Warning: Coercing text to numeric in E5586 / R5586C5: '3'
## Warning: Coercing text to numeric in F5586 / R5586C6: '3'
## Warning: Coercing text to numeric in H5586 / R5586C8: '1'
## Warning: Coercing text to numeric in J5586 / R5586C10: '6'
## Warning: Coercing text to numeric in K5586 / R5586C11: '4'
## Warning: Coercing text to numeric in L5586 / R5586C12: '1'
## Warning: Coercing text to numeric in M5586 / R5586C13: '0'
## Warning: Coercing text to numeric in E5587 / R5587C5: '11'
## Warning: Coercing text to numeric in F5587 / R5587C6: '3'
## Warning: Coercing text to numeric in H5587 / R5587C8: '1'
## Warning: Coercing text to numeric in J5587 / R5587C10: '6'
## Warning: Coercing text to numeric in K5587 / R5587C11: '4'
## Warning: Coercing text to numeric in L5587 / R5587C12: '1'
## Warning: Coercing text to numeric in M5587 / R5587C13: '0'
## Warning: Coercing text to numeric in E5588 / R5588C5: '5'
## Warning: Coercing text to numeric in F5588 / R5588C6: '2'
## Warning: Coercing text to numeric in H5588 / R5588C8: '1'
## Warning: Coercing text to numeric in J5588 / R5588C10: '6'
## Warning: Coercing text to numeric in K5588 / R5588C11: '4'
## Warning: Coercing text to numeric in L5588 / R5588C12: '1'
## Warning: Coercing text to numeric in M5588 / R5588C13: '0'
## Warning: Coercing text to numeric in E5589 / R5589C5: '6'
## Warning: Coercing text to numeric in F5589 / R5589C6: '2'
## Warning: Coercing text to numeric in H5589 / R5589C8: '1'
## Warning: Coercing text to numeric in J5589 / R5589C10: '6'
## Warning: Coercing text to numeric in K5589 / R5589C11: '4'
## Warning: Coercing text to numeric in L5589 / R5589C12: '1'
## Warning: Coercing text to numeric in M5589 / R5589C13: '0'
## Warning: Coercing text to numeric in E5590 / R5590C5: '10'
## Warning: Coercing text to numeric in F5590 / R5590C6: '2'
## Warning: Coercing text to numeric in H5590 / R5590C8: '3'
## Warning: Coercing text to numeric in J5590 / R5590C10: '6'
## Warning: Coercing text to numeric in K5590 / R5590C11: '3'
## Warning: Coercing text to numeric in L5590 / R5590C12: '1'
## Warning: Coercing text to numeric in M5590 / R5590C13: '7'
## Warning: Coercing text to numeric in E5591 / R5591C5: '1'
## Warning: Coercing text to numeric in F5591 / R5591C6: '2'
## Warning: Coercing text to numeric in H5591 / R5591C8: '1'
## Warning: Coercing text to numeric in J5591 / R5591C10: '6'
## Warning: Coercing text to numeric in K5591 / R5591C11: '4'
## Warning: Coercing text to numeric in L5591 / R5591C12: '1'
## Warning: Coercing text to numeric in M5591 / R5591C13: '0'
## Warning: Coercing text to numeric in E5592 / R5592C5: '2'
## Warning: Coercing text to numeric in F5592 / R5592C6: '3'
## Warning: Coercing text to numeric in H5592 / R5592C8: '1'
## Warning: Coercing text to numeric in J5592 / R5592C10: '6'
## Warning: Coercing text to numeric in K5592 / R5592C11: '4'
## Warning: Coercing text to numeric in L5592 / R5592C12: '1'
## Warning: Coercing text to numeric in M5592 / R5592C13: '0'
## Warning: Coercing text to numeric in E5593 / R5593C5: '8'
## Warning: Coercing text to numeric in F5593 / R5593C6: '3'
## Warning: Coercing text to numeric in H5593 / R5593C8: '1'
## Warning: Coercing text to numeric in J5593 / R5593C10: '6'
## Warning: Coercing text to numeric in K5593 / R5593C11: '4'
## Warning: Coercing text to numeric in L5593 / R5593C12: '1'
## Warning: Coercing text to numeric in M5593 / R5593C13: '0'
## Warning: Coercing text to numeric in E5594 / R5594C5: '1'
## Warning: Coercing text to numeric in F5594 / R5594C6: '3'
## Warning: Coercing text to numeric in H5594 / R5594C8: '1'
## Warning: Coercing text to numeric in J5594 / R5594C10: '6'
## Warning: Coercing text to numeric in K5594 / R5594C11: '4'
## Warning: Coercing text to numeric in L5594 / R5594C12: '1'
## Warning: Coercing text to numeric in M5594 / R5594C13: '0'
## Warning: Coercing text to numeric in E5595 / R5595C5: '13'
## Warning: Coercing text to numeric in F5595 / R5595C6: '3'
## Warning: Coercing text to numeric in H5595 / R5595C8: '1'
## Warning: Coercing text to numeric in J5595 / R5595C10: '6'
## Warning: Coercing text to numeric in K5595 / R5595C11: '4'
## Warning: Coercing text to numeric in L5595 / R5595C12: '1'
## Warning: Coercing text to numeric in M5595 / R5595C13: '0'
## Warning: Coercing text to numeric in E5596 / R5596C5: '2'
## Warning: Coercing text to numeric in F5596 / R5596C6: '2'
## Warning: Coercing text to numeric in H5596 / R5596C8: '3'
## Warning: Coercing text to numeric in J5596 / R5596C10: '6'
## Warning: Coercing text to numeric in K5596 / R5596C11: '3'
## Warning: Coercing text to numeric in L5596 / R5596C12: '1'
## Warning: Coercing text to numeric in M5596 / R5596C13: '0'
## Warning: Coercing text to numeric in E5597 / R5597C5: '3'
## Warning: Coercing text to numeric in F5597 / R5597C6: '2'
## Warning: Coercing text to numeric in H5597 / R5597C8: '1'
## Warning: Coercing text to numeric in J5597 / R5597C10: '6'
## Warning: Coercing text to numeric in K5597 / R5597C11: '4'
## Warning: Coercing text to numeric in L5597 / R5597C12: '1'
## Warning: Coercing text to numeric in M5597 / R5597C13: '0'
## Warning: Coercing text to numeric in E5598 / R5598C5: '3'
## Warning: Coercing text to numeric in F5598 / R5598C6: '2'
## Warning: Coercing text to numeric in H5598 / R5598C8: '1'
## Warning: Coercing text to numeric in J5598 / R5598C10: '6'
## Warning: Coercing text to numeric in K5598 / R5598C11: '4'
## Warning: Coercing text to numeric in L5598 / R5598C12: '1'
## Warning: Coercing text to numeric in M5598 / R5598C13: '0'
## Warning: Coercing text to numeric in E5599 / R5599C5: '5'
## Warning: Coercing text to numeric in F5599 / R5599C6: '3'
## Warning: Coercing text to numeric in H5599 / R5599C8: '3'
## Warning: Coercing text to numeric in J5599 / R5599C10: '6'
## Warning: Coercing text to numeric in K5599 / R5599C11: '4'
## Warning: Coercing text to numeric in L5599 / R5599C12: '1'
## Warning: Coercing text to numeric in M5599 / R5599C13: '0'
## Warning: Coercing text to numeric in E5600 / R5600C5: '4'
## Warning: Coercing text to numeric in F5600 / R5600C6: '2'
## Warning: Coercing text to numeric in H5600 / R5600C8: '1'
## Warning: Coercing text to numeric in J5600 / R5600C10: '6'
## Warning: Coercing text to numeric in K5600 / R5600C11: '4'
## Warning: Coercing text to numeric in L5600 / R5600C12: '1'
## Warning: Coercing text to numeric in M5600 / R5600C13: '0'
## Warning: Coercing text to numeric in E5601 / R5601C5: '9'
## Warning: Coercing text to numeric in F5601 / R5601C6: '2'
## Warning: Coercing text to numeric in H5601 / R5601C8: '1'
## Warning: Coercing text to numeric in J5601 / R5601C10: '6'
## Warning: Coercing text to numeric in K5601 / R5601C11: '4'
## Warning: Coercing text to numeric in L5601 / R5601C12: '1'
## Warning: Coercing text to numeric in M5601 / R5601C13: '0'
## Warning: Coercing text to numeric in E5602 / R5602C5: '6'
## Warning: Coercing text to numeric in F5602 / R5602C6: '2'
## Warning: Coercing text to numeric in H5602 / R5602C8: '1'
## Warning: Coercing text to numeric in J5602 / R5602C10: '6'
## Warning: Coercing text to numeric in K5602 / R5602C11: '4'
## Warning: Coercing text to numeric in L5602 / R5602C12: '1'
## Warning: Coercing text to numeric in M5602 / R5602C13: '0'
## Warning: Coercing text to numeric in E5603 / R5603C5: '3'
## Warning: Coercing text to numeric in F5603 / R5603C6: '2'
## Warning: Coercing text to numeric in H5603 / R5603C8: '1'
## Warning: Coercing text to numeric in J5603 / R5603C10: '6'
## Warning: Coercing text to numeric in K5603 / R5603C11: '4'
## Warning: Coercing text to numeric in L5603 / R5603C12: '1'
## Warning: Coercing text to numeric in M5603 / R5603C13: '0'
## Warning: Coercing text to numeric in E5604 / R5604C5: '11'
## Warning: Coercing text to numeric in F5604 / R5604C6: '2'
## Warning: Coercing text to numeric in H5604 / R5604C8: '1'
## Warning: Coercing text to numeric in J5604 / R5604C10: '6'
## Warning: Coercing text to numeric in K5604 / R5604C11: '4'
## Warning: Coercing text to numeric in L5604 / R5604C12: '1'
## Warning: Coercing text to numeric in M5604 / R5604C13: '0'
## Warning: Coercing text to numeric in E5605 / R5605C5: '2'
## Warning: Coercing text to numeric in F5605 / R5605C6: '2'
## Warning: Coercing text to numeric in H5605 / R5605C8: '1'
## Warning: Coercing text to numeric in J5605 / R5605C10: '6'
## Warning: Coercing text to numeric in K5605 / R5605C11: '4'
## Warning: Coercing text to numeric in L5605 / R5605C12: '1'
## Warning: Coercing text to numeric in M5605 / R5605C13: '0'
## Warning: Coercing text to numeric in E5606 / R5606C5: '7'
## Warning: Coercing text to numeric in F5606 / R5606C6: '2'
## Warning: Coercing text to numeric in H5606 / R5606C8: '1'
## Warning: Coercing text to numeric in J5606 / R5606C10: '6'
## Warning: Coercing text to numeric in K5606 / R5606C11: '4'
## Warning: Coercing text to numeric in L5606 / R5606C12: '1'
## Warning: Coercing text to numeric in M5606 / R5606C13: '0'
## Warning: Coercing text to numeric in E5607 / R5607C5: '6'
## Warning: Coercing text to numeric in F5607 / R5607C6: '2'
## Warning: Coercing text to numeric in H5607 / R5607C8: '1'
## Warning: Coercing text to numeric in J5607 / R5607C10: '6'
## Warning: Coercing text to numeric in K5607 / R5607C11: '4'
## Warning: Coercing text to numeric in L5607 / R5607C12: '1'
## Warning: Coercing text to numeric in M5607 / R5607C13: '0'
## Warning: Coercing text to numeric in E5608 / R5608C5: '5'
## Warning: Coercing text to numeric in F5608 / R5608C6: '2'
## Warning: Coercing text to numeric in H5608 / R5608C8: '1'
## Warning: Coercing text to numeric in J5608 / R5608C10: '6'
## Warning: Coercing text to numeric in K5608 / R5608C11: '4'
## Warning: Coercing text to numeric in L5608 / R5608C12: '1'
## Warning: Coercing text to numeric in M5608 / R5608C13: '0'
## Warning: Coercing text to numeric in E5609 / R5609C5: '6'
## Warning: Coercing text to numeric in F5609 / R5609C6: '2'
## Warning: Coercing text to numeric in H5609 / R5609C8: '1'
## Warning: Coercing text to numeric in J5609 / R5609C10: '6'
## Warning: Coercing text to numeric in K5609 / R5609C11: '4'
## Warning: Coercing text to numeric in L5609 / R5609C12: '1'
## Warning: Coercing text to numeric in M5609 / R5609C13: '0'
## Warning: Coercing text to numeric in E5610 / R5610C5: '3'
## Warning: Coercing text to numeric in F5610 / R5610C6: '2'
## Warning: Coercing text to numeric in H5610 / R5610C8: '1'
## Warning: Coercing text to numeric in J5610 / R5610C10: '6'
## Warning: Coercing text to numeric in K5610 / R5610C11: '4'
## Warning: Coercing text to numeric in L5610 / R5610C12: '1'
## Warning: Coercing text to numeric in M5610 / R5610C13: '0'
## Warning: Coercing text to numeric in E5611 / R5611C5: '4'
## Warning: Coercing text to numeric in F5611 / R5611C6: '2'
## Warning: Coercing text to numeric in H5611 / R5611C8: '1'
## Warning: Coercing text to numeric in J5611 / R5611C10: '6'
## Warning: Coercing text to numeric in K5611 / R5611C11: '4'
## Warning: Coercing text to numeric in L5611 / R5611C12: '1'
## Warning: Coercing text to numeric in M5611 / R5611C13: '0'
## Warning: Coercing text to numeric in E5612 / R5612C5: '3'
## Warning: Coercing text to numeric in F5612 / R5612C6: '2'
## Warning: Coercing text to numeric in H5612 / R5612C8: '1'
## Warning: Coercing text to numeric in J5612 / R5612C10: '6'
## Warning: Coercing text to numeric in K5612 / R5612C11: '4'
## Warning: Coercing text to numeric in L5612 / R5612C12: '1'
## Warning: Coercing text to numeric in M5612 / R5612C13: '0'
## Warning: Coercing text to numeric in E5613 / R5613C5: '1'
## Warning: Coercing text to numeric in F5613 / R5613C6: '2'
## Warning: Coercing text to numeric in H5613 / R5613C8: '1'
## Warning: Coercing text to numeric in J5613 / R5613C10: '6'
## Warning: Coercing text to numeric in K5613 / R5613C11: '4'
## Warning: Coercing text to numeric in L5613 / R5613C12: '1'
## Warning: Coercing text to numeric in M5613 / R5613C13: '0'
## Warning: Coercing text to numeric in E5614 / R5614C5: '1'
## Warning: Coercing text to numeric in F5614 / R5614C6: '3'
## Warning: Coercing text to numeric in H5614 / R5614C8: '1'
## Warning: Coercing text to numeric in J5614 / R5614C10: '6'
## Warning: Coercing text to numeric in K5614 / R5614C11: '4'
## Warning: Coercing text to numeric in L5614 / R5614C12: '1'
## Warning: Coercing text to numeric in M5614 / R5614C13: '0'
## Warning: Coercing text to numeric in E5615 / R5615C5: '2'
## Warning: Coercing text to numeric in F5615 / R5615C6: '3'
## Warning: Coercing text to numeric in H5615 / R5615C8: '1'
## Warning: Coercing text to numeric in J5615 / R5615C10: '6'
## Warning: Coercing text to numeric in K5615 / R5615C11: '4'
## Warning: Coercing text to numeric in L5615 / R5615C12: '1'
## Warning: Coercing text to numeric in M5615 / R5615C13: '0'
## Warning: Coercing text to numeric in E5616 / R5616C5: '3'
## Warning: Coercing text to numeric in F5616 / R5616C6: '2'
## Warning: Coercing text to numeric in H5616 / R5616C8: '1'
## Warning: Coercing text to numeric in J5616 / R5616C10: '6'
## Warning: Coercing text to numeric in K5616 / R5616C11: '4'
## Warning: Coercing text to numeric in L5616 / R5616C12: '2'
## Warning: Coercing text to numeric in M5616 / R5616C13: '0'
## Warning: Coercing text to numeric in E5617 / R5617C5: '10'
## Warning: Coercing text to numeric in F5617 / R5617C6: '2'
## Warning: Coercing text to numeric in H5617 / R5617C8: '1'
## Warning: Coercing text to numeric in J5617 / R5617C10: '6'
## Warning: Coercing text to numeric in K5617 / R5617C11: '4'
## Warning: Coercing text to numeric in L5617 / R5617C12: '1'
## Warning: Coercing text to numeric in M5617 / R5617C13: '0'
## Warning: Coercing text to numeric in E5618 / R5618C5: '4'
## Warning: Coercing text to numeric in F5618 / R5618C6: '2'
## Warning: Coercing text to numeric in H5618 / R5618C8: '1'
## Warning: Coercing text to numeric in J5618 / R5618C10: '6'
## Warning: Coercing text to numeric in K5618 / R5618C11: '4'
## Warning: Coercing text to numeric in L5618 / R5618C12: '1'
## Warning: Coercing text to numeric in M5618 / R5618C13: '0'
## Warning: Coercing text to numeric in E5619 / R5619C5: '8'
## Warning: Coercing text to numeric in F5619 / R5619C6: '2'
## Warning: Coercing text to numeric in H5619 / R5619C8: '1'
## Warning: Coercing text to numeric in J5619 / R5619C10: '6'
## Warning: Coercing text to numeric in K5619 / R5619C11: '4'
## Warning: Coercing text to numeric in L5619 / R5619C12: '1'
## Warning: Coercing text to numeric in M5619 / R5619C13: '0'
## Warning: Coercing text to numeric in E5620 / R5620C5: '3'
## Warning: Coercing text to numeric in F5620 / R5620C6: '3'
## Warning: Coercing text to numeric in H5620 / R5620C8: '1'
## Warning: Coercing text to numeric in J5620 / R5620C10: '6'
## Warning: Coercing text to numeric in K5620 / R5620C11: '4'
## Warning: Coercing text to numeric in L5620 / R5620C12: '2'
## Warning: Coercing text to numeric in M5620 / R5620C13: '7'
## Warning: Coercing text to numeric in E5621 / R5621C5: '2'
## Warning: Coercing text to numeric in F5621 / R5621C6: '3'
## Warning: Coercing text to numeric in H5621 / R5621C8: '1'
## Warning: Coercing text to numeric in J5621 / R5621C10: '6'
## Warning: Coercing text to numeric in K5621 / R5621C11: '4'
## Warning: Coercing text to numeric in L5621 / R5621C12: '2'
## Warning: Coercing text to numeric in M5621 / R5621C13: '0'
## Warning: Coercing text to numeric in E5622 / R5622C5: '7'
## Warning: Coercing text to numeric in F5622 / R5622C6: '2'
## Warning: Coercing text to numeric in H5622 / R5622C8: '1'
## Warning: Coercing text to numeric in J5622 / R5622C10: '6'
## Warning: Coercing text to numeric in K5622 / R5622C11: '4'
## Warning: Coercing text to numeric in L5622 / R5622C12: '1'
## Warning: Coercing text to numeric in M5622 / R5622C13: '0'
## Warning: Coercing text to numeric in E5623 / R5623C5: '3'
## Warning: Coercing text to numeric in F5623 / R5623C6: '2'
## Warning: Coercing text to numeric in H5623 / R5623C8: '1'
## Warning: Coercing text to numeric in J5623 / R5623C10: '6'
## Warning: Coercing text to numeric in K5623 / R5623C11: '4'
## Warning: Coercing text to numeric in L5623 / R5623C12: '1'
## Warning: Coercing text to numeric in M5623 / R5623C13: '0'
## Warning: Coercing text to numeric in E5624 / R5624C5: '18'
## Warning: Coercing text to numeric in F5624 / R5624C6: '3'
## Warning: Coercing text to numeric in H5624 / R5624C8: '1'
## Warning: Coercing text to numeric in J5624 / R5624C10: '6'
## Warning: Coercing text to numeric in K5624 / R5624C11: '4'
## Warning: Coercing text to numeric in L5624 / R5624C12: '1'
## Warning: Coercing text to numeric in M5624 / R5624C13: '0'
## Warning: Coercing text to numeric in E5625 / R5625C5: '4'
## Warning: Coercing text to numeric in F5625 / R5625C6: '3'
## Warning: Coercing text to numeric in H5625 / R5625C8: '1'
## Warning: Coercing text to numeric in J5625 / R5625C10: '6'
## Warning: Coercing text to numeric in K5625 / R5625C11: '4'
## Warning: Coercing text to numeric in L5625 / R5625C12: '1'
## Warning: Coercing text to numeric in M5625 / R5625C13: '0'
## Warning: Coercing text to numeric in E5626 / R5626C5: '14'
## Warning: Coercing text to numeric in F5626 / R5626C6: '3'
## Warning: Coercing text to numeric in H5626 / R5626C8: '1'
## Warning: Coercing text to numeric in J5626 / R5626C10: '6'
## Warning: Coercing text to numeric in K5626 / R5626C11: '4'
## Warning: Coercing text to numeric in L5626 / R5626C12: '2'
## Warning: Coercing text to numeric in M5626 / R5626C13: '0'
## Warning: Coercing text to numeric in E5627 / R5627C5: '2'
## Warning: Coercing text to numeric in F5627 / R5627C6: '2'
## Warning: Coercing text to numeric in H5627 / R5627C8: '1'
## Warning: Coercing text to numeric in J5627 / R5627C10: '6'
## Warning: Coercing text to numeric in K5627 / R5627C11: '4'
## Warning: Coercing text to numeric in L5627 / R5627C12: '1'
## Warning: Coercing text to numeric in M5627 / R5627C13: '0'
## Warning: Coercing text to numeric in E5628 / R5628C5: '21'
## Warning: Coercing text to numeric in F5628 / R5628C6: '3'
## Warning: Coercing text to numeric in H5628 / R5628C8: '1'
## Warning: Coercing text to numeric in J5628 / R5628C10: '6'
## Warning: Coercing text to numeric in K5628 / R5628C11: '4'
## Warning: Coercing text to numeric in L5628 / R5628C12: '1'
## Warning: Coercing text to numeric in M5628 / R5628C13: '0'
## Warning: Coercing text to numeric in E5629 / R5629C5: '5'
## Warning: Coercing text to numeric in F5629 / R5629C6: '3'
## Warning: Coercing text to numeric in H5629 / R5629C8: '1'
## Warning: Coercing text to numeric in J5629 / R5629C10: '6'
## Warning: Coercing text to numeric in K5629 / R5629C11: '4'
## Warning: Coercing text to numeric in L5629 / R5629C12: '1'
## Warning: Coercing text to numeric in M5629 / R5629C13: '0'
## Warning: Coercing text to numeric in E5630 / R5630C5: '2'
## Warning: Coercing text to numeric in F5630 / R5630C6: '2'
## Warning: Coercing text to numeric in H5630 / R5630C8: '1'
## Warning: Coercing text to numeric in J5630 / R5630C10: '6'
## Warning: Coercing text to numeric in K5630 / R5630C11: '3'
## Warning: Coercing text to numeric in L5630 / R5630C12: '1'
## Warning: Coercing text to numeric in M5630 / R5630C13: '0'
## Warning: Coercing text to numeric in E5631 / R5631C5: '7'
## Warning: Coercing text to numeric in F5631 / R5631C6: '2'
## Warning: Coercing text to numeric in H5631 / R5631C8: '1'
## Warning: Coercing text to numeric in J5631 / R5631C10: '6'
## Warning: Coercing text to numeric in K5631 / R5631C11: '2'
## Warning: Coercing text to numeric in L5631 / R5631C12: '1'
## Warning: Coercing text to numeric in M5631 / R5631C13: '4'
## Warning: Coercing text to numeric in E5632 / R5632C5: '1'
## Warning: Coercing text to numeric in F5632 / R5632C6: '3'
## Warning: Coercing text to numeric in H5632 / R5632C8: '1'
## Warning: Coercing text to numeric in J5632 / R5632C10: '6'
## Warning: Coercing text to numeric in K5632 / R5632C11: '2'
## Warning: Coercing text to numeric in L5632 / R5632C12: '1'
## Warning: Coercing text to numeric in M5632 / R5632C13: '4'
## Warning: Coercing text to numeric in E5633 / R5633C5: '2'
## Warning: Coercing text to numeric in F5633 / R5633C6: '3'
## Warning: Coercing text to numeric in H5633 / R5633C8: '3'
## Warning: Coercing text to numeric in J5633 / R5633C10: '6'
## Warning: Coercing text to numeric in K5633 / R5633C11: '4'
## Warning: Coercing text to numeric in L5633 / R5633C12: '1'
## Warning: Coercing text to numeric in M5633 / R5633C13: '7'
## Warning: Coercing text to numeric in E5634 / R5634C5: '14'
## Warning: Coercing text to numeric in F5634 / R5634C6: '3'
## Warning: Coercing text to numeric in H5634 / R5634C8: '1'
## Warning: Coercing text to numeric in J5634 / R5634C10: '6'
## Warning: Coercing text to numeric in K5634 / R5634C11: '2'
## Warning: Coercing text to numeric in L5634 / R5634C12: '1'
## Warning: Coercing text to numeric in M5634 / R5634C13: '3'
## Warning: Coercing text to numeric in E5635 / R5635C5: '11'
## Warning: Coercing text to numeric in F5635 / R5635C6: '2'
## Warning: Coercing text to numeric in H5635 / R5635C8: '1'
## Warning: Coercing text to numeric in J5635 / R5635C10: '6'
## Warning: Coercing text to numeric in K5635 / R5635C11: '4'
## Warning: Coercing text to numeric in L5635 / R5635C12: '1'
## Warning: Coercing text to numeric in M5635 / R5635C13: '3'
## Warning: Coercing text to numeric in E5636 / R5636C5: '11'
## Warning: Coercing text to numeric in F5636 / R5636C6: '2'
## Warning: Coercing text to numeric in H5636 / R5636C8: '1'
## Warning: Coercing text to numeric in J5636 / R5636C10: '6'
## Warning: Coercing text to numeric in K5636 / R5636C11: '4'
## Warning: Coercing text to numeric in L5636 / R5636C12: '1'
## Warning: Coercing text to numeric in M5636 / R5636C13: '0'
## Warning: Coercing text to numeric in E5637 / R5637C5: '5'
## Warning: Coercing text to numeric in F5637 / R5637C6: '3'
## Warning: Coercing text to numeric in H5637 / R5637C8: '1'
## Warning: Coercing text to numeric in J5637 / R5637C10: '6'
## Warning: Coercing text to numeric in K5637 / R5637C11: '4'
## Warning: Coercing text to numeric in L5637 / R5637C12: '1'
## Warning: Coercing text to numeric in M5637 / R5637C13: '0'
## Warning: Coercing text to numeric in E5638 / R5638C5: '3'
## Warning: Coercing text to numeric in F5638 / R5638C6: '3'
## Warning: Coercing text to numeric in H5638 / R5638C8: '3'
## Warning: Coercing text to numeric in J5638 / R5638C10: '6'
## Warning: Coercing text to numeric in K5638 / R5638C11: '2'
## Warning: Coercing text to numeric in L5638 / R5638C12: '1'
## Warning: Coercing text to numeric in M5638 / R5638C13: '4'
## Warning: Coercing text to numeric in E5639 / R5639C5: '8'
## Warning: Coercing text to numeric in F5639 / R5639C6: '2'
## Warning: Coercing text to numeric in H5639 / R5639C8: '1'
## Warning: Coercing text to numeric in J5639 / R5639C10: '6'
## Warning: Coercing text to numeric in K5639 / R5639C11: '4'
## Warning: Coercing text to numeric in L5639 / R5639C12: '1'
## Warning: Coercing text to numeric in M5639 / R5639C13: '0'
## Warning: Coercing text to numeric in E5640 / R5640C5: '3'
## Warning: Coercing text to numeric in F5640 / R5640C6: '3'
## Warning: Coercing text to numeric in H5640 / R5640C8: '1'
## Warning: Coercing text to numeric in J5640 / R5640C10: '6'
## Warning: Coercing text to numeric in K5640 / R5640C11: '4'
## Warning: Coercing text to numeric in L5640 / R5640C12: '1'
## Warning: Coercing text to numeric in M5640 / R5640C13: '0'
## Warning: Coercing text to numeric in E5641 / R5641C5: '3'
## Warning: Coercing text to numeric in F5641 / R5641C6: '3'
## Warning: Coercing text to numeric in H5641 / R5641C8: '1'
## Warning: Coercing text to numeric in J5641 / R5641C10: '6'
## Warning: Coercing text to numeric in K5641 / R5641C11: '4'
## Warning: Coercing text to numeric in L5641 / R5641C12: '1'
## Warning: Coercing text to numeric in M5641 / R5641C13: '0'
## Warning: Coercing text to numeric in E5642 / R5642C5: '3'
## Warning: Coercing text to numeric in F5642 / R5642C6: '3'
## Warning: Coercing text to numeric in H5642 / R5642C8: '3'
## Warning: Coercing text to numeric in J5642 / R5642C10: '6'
## Warning: Coercing text to numeric in K5642 / R5642C11: '2'
## Warning: Coercing text to numeric in L5642 / R5642C12: '1'
## Warning: Coercing text to numeric in M5642 / R5642C13: '4'
## Warning: Coercing text to numeric in E5643 / R5643C5: '1'
## Warning: Coercing text to numeric in F5643 / R5643C6: '3'
## Warning: Coercing text to numeric in H5643 / R5643C8: '1'
## Warning: Coercing text to numeric in J5643 / R5643C10: '6'
## Warning: Coercing text to numeric in K5643 / R5643C11: '4'
## Warning: Coercing text to numeric in L5643 / R5643C12: '1'
## Warning: Coercing text to numeric in M5643 / R5643C13: '0'
## Warning: Coercing text to numeric in E5644 / R5644C5: '4'
## Warning: Coercing text to numeric in F5644 / R5644C6: '2'
## Warning: Coercing text to numeric in H5644 / R5644C8: '2'
## Warning: Coercing text to numeric in J5644 / R5644C10: '6'
## Warning: Coercing text to numeric in K5644 / R5644C11: '4'
## Warning: Coercing text to numeric in L5644 / R5644C12: '1'
## Warning: Coercing text to numeric in M5644 / R5644C13: '0'
## Warning: Coercing text to numeric in E5645 / R5645C5: '3'
## Warning: Coercing text to numeric in F5645 / R5645C6: '2'
## Warning: Coercing text to numeric in H5645 / R5645C8: '1'
## Warning: Coercing text to numeric in J5645 / R5645C10: '6'
## Warning: Coercing text to numeric in K5645 / R5645C11: '4'
## Warning: Coercing text to numeric in L5645 / R5645C12: '1'
## Warning: Coercing text to numeric in M5645 / R5645C13: '0'
## Warning: Coercing text to numeric in E5646 / R5646C5: '8'
## Warning: Coercing text to numeric in F5646 / R5646C6: '2'
## Warning: Coercing text to numeric in H5646 / R5646C8: '1'
## Warning: Coercing text to numeric in J5646 / R5646C10: '6'
## Warning: Coercing text to numeric in K5646 / R5646C11: '4'
## Warning: Coercing text to numeric in L5646 / R5646C12: '1'
## Warning: Coercing text to numeric in M5646 / R5646C13: '0'
## Warning: Coercing text to numeric in E5647 / R5647C5: '7'
## Warning: Coercing text to numeric in F5647 / R5647C6: '2'
## Warning: Coercing text to numeric in H5647 / R5647C8: '1'
## Warning: Coercing text to numeric in J5647 / R5647C10: '6'
## Warning: Coercing text to numeric in K5647 / R5647C11: '4'
## Warning: Coercing text to numeric in L5647 / R5647C12: '1'
## Warning: Coercing text to numeric in M5647 / R5647C13: '0'
## Warning: Coercing text to numeric in E5648 / R5648C5: '6'
## Warning: Coercing text to numeric in F5648 / R5648C6: '2'
## Warning: Coercing text to numeric in H5648 / R5648C8: '1'
## Warning: Coercing text to numeric in J5648 / R5648C10: '6'
## Warning: Coercing text to numeric in K5648 / R5648C11: '4'
## Warning: Coercing text to numeric in L5648 / R5648C12: '1'
## Warning: Coercing text to numeric in M5648 / R5648C13: '0'
## Warning: Coercing text to numeric in E5649 / R5649C5: '5'
## Warning: Coercing text to numeric in F5649 / R5649C6: '2'
## Warning: Coercing text to numeric in H5649 / R5649C8: '1'
## Warning: Coercing text to numeric in J5649 / R5649C10: '6'
## Warning: Coercing text to numeric in K5649 / R5649C11: '4'
## Warning: Coercing text to numeric in L5649 / R5649C12: '1'
## Warning: Coercing text to numeric in M5649 / R5649C13: '0'
## Warning: Coercing text to numeric in E5650 / R5650C5: '8'
## Warning: Coercing text to numeric in F5650 / R5650C6: '2'
## Warning: Coercing text to numeric in H5650 / R5650C8: '1'
## Warning: Coercing text to numeric in J5650 / R5650C10: '6'
## Warning: Coercing text to numeric in K5650 / R5650C11: '4'
## Warning: Coercing text to numeric in L5650 / R5650C12: '1'
## Warning: Coercing text to numeric in M5650 / R5650C13: '0'
## Warning: Coercing text to numeric in E5651 / R5651C5: '2'
## Warning: Coercing text to numeric in F5651 / R5651C6: '2'
## Warning: Coercing text to numeric in H5651 / R5651C8: '1'
## Warning: Coercing text to numeric in J5651 / R5651C10: '6'
## Warning: Coercing text to numeric in K5651 / R5651C11: '3'
## Warning: Coercing text to numeric in L5651 / R5651C12: '1'
## Warning: Coercing text to numeric in M5651 / R5651C13: '7'
## Warning: Coercing text to numeric in E5652 / R5652C5: '1'
## Warning: Coercing text to numeric in F5652 / R5652C6: '3'
## Warning: Coercing text to numeric in H5652 / R5652C8: '1'
## Warning: Coercing text to numeric in J5652 / R5652C10: '6'
## Warning: Coercing text to numeric in K5652 / R5652C11: '4'
## Warning: Coercing text to numeric in L5652 / R5652C12: '1'
## Warning: Coercing text to numeric in M5652 / R5652C13: '0'
## Warning: Coercing text to numeric in E5653 / R5653C5: '5'
## Warning: Coercing text to numeric in F5653 / R5653C6: '2'
## Warning: Coercing text to numeric in H5653 / R5653C8: '1'
## Warning: Coercing text to numeric in J5653 / R5653C10: '6'
## Warning: Coercing text to numeric in K5653 / R5653C11: '4'
## Warning: Coercing text to numeric in L5653 / R5653C12: '1'
## Warning: Coercing text to numeric in M5653 / R5653C13: '7'
## Warning: Coercing text to numeric in E5654 / R5654C5: '5'
## Warning: Coercing text to numeric in F5654 / R5654C6: '3'
## Warning: Coercing text to numeric in H5654 / R5654C8: '1'
## Warning: Coercing text to numeric in J5654 / R5654C10: '6'
## Warning: Coercing text to numeric in K5654 / R5654C11: '4'
## Warning: Coercing text to numeric in L5654 / R5654C12: '1'
## Warning: Coercing text to numeric in M5654 / R5654C13: '0'
## Warning: Coercing text to numeric in E5655 / R5655C5: '3'
## Warning: Coercing text to numeric in F5655 / R5655C6: '3'
## Warning: Coercing text to numeric in H5655 / R5655C8: '1'
## Warning: Coercing text to numeric in J5655 / R5655C10: '6'
## Warning: Coercing text to numeric in K5655 / R5655C11: '4'
## Warning: Coercing text to numeric in L5655 / R5655C12: '1'
## Warning: Coercing text to numeric in M5655 / R5655C13: '0'
## Warning: Coercing text to numeric in E5656 / R5656C5: '13'
## Warning: Coercing text to numeric in F5656 / R5656C6: '3'
## Warning: Coercing text to numeric in H5656 / R5656C8: '1'
## Warning: Coercing text to numeric in J5656 / R5656C10: '6'
## Warning: Coercing text to numeric in K5656 / R5656C11: '4'
## Warning: Coercing text to numeric in L5656 / R5656C12: '1'
## Warning: Coercing text to numeric in M5656 / R5656C13: '0'
## Warning: Coercing text to numeric in E5657 / R5657C5: '2'
## Warning: Coercing text to numeric in F5657 / R5657C6: '3'
## Warning: Coercing text to numeric in H5657 / R5657C8: '1'
## Warning: Coercing text to numeric in J5657 / R5657C10: '6'
## Warning: Coercing text to numeric in K5657 / R5657C11: '4'
## Warning: Coercing text to numeric in L5657 / R5657C12: '1'
## Warning: Coercing text to numeric in M5657 / R5657C13: '0'
## Warning: Coercing text to numeric in E5658 / R5658C5: '2'
## Warning: Coercing text to numeric in F5658 / R5658C6: '3'
## Warning: Coercing text to numeric in H5658 / R5658C8: '1'
## Warning: Coercing text to numeric in J5658 / R5658C10: '6'
## Warning: Coercing text to numeric in K5658 / R5658C11: '4'
## Warning: Coercing text to numeric in L5658 / R5658C12: '1'
## Warning: Coercing text to numeric in M5658 / R5658C13: '0'
## Warning: Coercing text to numeric in E5659 / R5659C5: '1'
## Warning: Coercing text to numeric in F5659 / R5659C6: '2'
## Warning: Coercing text to numeric in H5659 / R5659C8: '2'
## Warning: Coercing text to numeric in J5659 / R5659C10: '6'
## Warning: Coercing text to numeric in K5659 / R5659C11: '2'
## Warning: Coercing text to numeric in L5659 / R5659C12: '1'
## Warning: Coercing text to numeric in M5659 / R5659C13: '0'
## Warning: Coercing text to numeric in E5660 / R5660C5: '1'
## Warning: Coercing text to numeric in F5660 / R5660C6: '3'
## Warning: Coercing text to numeric in H5660 / R5660C8: '1'
## Warning: Coercing text to numeric in J5660 / R5660C10: '6'
## Warning: Coercing text to numeric in K5660 / R5660C11: '4'
## Warning: Coercing text to numeric in L5660 / R5660C12: '1'
## Warning: Coercing text to numeric in M5660 / R5660C13: '0'
## Warning: Coercing text to numeric in E5661 / R5661C5: '5'
## Warning: Coercing text to numeric in F5661 / R5661C6: '3'
## Warning: Coercing text to numeric in H5661 / R5661C8: '1'
## Warning: Coercing text to numeric in J5661 / R5661C10: '6'
## Warning: Coercing text to numeric in K5661 / R5661C11: '4'
## Warning: Coercing text to numeric in L5661 / R5661C12: '1'
## Warning: Coercing text to numeric in M5661 / R5661C13: '0'
## Warning: Coercing text to numeric in E5662 / R5662C5: '1'
## Warning: Coercing text to numeric in F5662 / R5662C6: '2'
## Warning: Coercing text to numeric in H5662 / R5662C8: '1'
## Warning: Coercing text to numeric in J5662 / R5662C10: '6'
## Warning: Coercing text to numeric in K5662 / R5662C11: '4'
## Warning: Coercing text to numeric in L5662 / R5662C12: '2'
## Warning: Coercing text to numeric in M5662 / R5662C13: '0'
## Warning: Coercing text to numeric in E5663 / R5663C5: '1'
## Warning: Coercing text to numeric in F5663 / R5663C6: '3'
## Warning: Coercing text to numeric in H5663 / R5663C8: '1'
## Warning: Coercing text to numeric in J5663 / R5663C10: '6'
## Warning: Coercing text to numeric in K5663 / R5663C11: '4'
## Warning: Coercing text to numeric in L5663 / R5663C12: '1'
## Warning: Coercing text to numeric in M5663 / R5663C13: '0'
## Warning: Coercing text to numeric in E5664 / R5664C5: '7'
## Warning: Coercing text to numeric in F5664 / R5664C6: '3'
## Warning: Coercing text to numeric in H5664 / R5664C8: '1'
## Warning: Coercing text to numeric in J5664 / R5664C10: '6'
## Warning: Coercing text to numeric in K5664 / R5664C11: '4'
## Warning: Coercing text to numeric in L5664 / R5664C12: '1'
## Warning: Coercing text to numeric in M5664 / R5664C13: '0'
## Warning: Coercing text to numeric in E5665 / R5665C5: '2'
## Warning: Coercing text to numeric in F5665 / R5665C6: '3'
## Warning: Coercing text to numeric in H5665 / R5665C8: '1'
## Warning: Coercing text to numeric in J5665 / R5665C10: '6'
## Warning: Coercing text to numeric in K5665 / R5665C11: '4'
## Warning: Coercing text to numeric in L5665 / R5665C12: '1'
## Warning: Coercing text to numeric in M5665 / R5665C13: '7'
## Warning: Coercing text to numeric in E5666 / R5666C5: '4'
## Warning: Coercing text to numeric in F5666 / R5666C6: '3'
## Warning: Coercing text to numeric in H5666 / R5666C8: '3'
## Warning: Coercing text to numeric in J5666 / R5666C10: '6'
## Warning: Coercing text to numeric in K5666 / R5666C11: '4'
## Warning: Coercing text to numeric in L5666 / R5666C12: '2'
## Warning: Coercing text to numeric in M5666 / R5666C13: '0'
## Warning: Coercing text to numeric in E5667 / R5667C5: '2'
## Warning: Coercing text to numeric in F5667 / R5667C6: '2'
## Warning: Coercing text to numeric in H5667 / R5667C8: '1'
## Warning: Coercing text to numeric in J5667 / R5667C10: '5'
## Warning: Coercing text to numeric in K5667 / R5667C11: '3'
## Warning: Coercing text to numeric in L5667 / R5667C12: '1'
## Warning: Coercing text to numeric in M5667 / R5667C13: '0'
## Warning: Coercing text to numeric in E5668 / R5668C5: '6'
## Warning: Coercing text to numeric in F5668 / R5668C6: '2'
## Warning: Coercing text to numeric in H5668 / R5668C8: '2'
## Warning: Coercing text to numeric in J5668 / R5668C10: '6'
## Warning: Coercing text to numeric in K5668 / R5668C11: '4'
## Warning: Coercing text to numeric in L5668 / R5668C12: '1'
## Warning: Coercing text to numeric in M5668 / R5668C13: '0'
## Warning: Coercing text to numeric in E5669 / R5669C5: '20'
## Warning: Coercing text to numeric in F5669 / R5669C6: '3'
## Warning: Coercing text to numeric in H5669 / R5669C8: '1'
## Warning: Coercing text to numeric in J5669 / R5669C10: '6'
## Warning: Coercing text to numeric in K5669 / R5669C11: '4'
## Warning: Coercing text to numeric in L5669 / R5669C12: '1'
## Warning: Coercing text to numeric in M5669 / R5669C13: '0'
## Warning: Coercing text to numeric in E5670 / R5670C5: '15'
## Warning: Coercing text to numeric in F5670 / R5670C6: '3'
## Warning: Coercing text to numeric in H5670 / R5670C8: '1'
## Warning: Coercing text to numeric in J5670 / R5670C10: '6'
## Warning: Coercing text to numeric in K5670 / R5670C11: '4'
## Warning: Coercing text to numeric in L5670 / R5670C12: '1'
## Warning: Coercing text to numeric in M5670 / R5670C13: '0'
## Warning: Coercing text to numeric in E5671 / R5671C5: '2'
## Warning: Coercing text to numeric in F5671 / R5671C6: '3'
## Warning: Coercing text to numeric in H5671 / R5671C8: '3'
## Warning: Coercing text to numeric in J5671 / R5671C10: '6'
## Warning: Coercing text to numeric in K5671 / R5671C11: '4'
## Warning: Coercing text to numeric in L5671 / R5671C12: '1'
## Warning: Coercing text to numeric in M5671 / R5671C13: '0'
## Warning: Coercing text to numeric in E5672 / R5672C5: '6'
## Warning: Coercing text to numeric in F5672 / R5672C6: '2'
## Warning: Coercing text to numeric in H5672 / R5672C8: '3'
## Warning: Coercing text to numeric in J5672 / R5672C10: '6'
## Warning: Coercing text to numeric in K5672 / R5672C11: '4'
## Warning: Coercing text to numeric in L5672 / R5672C12: '1'
## Warning: Coercing text to numeric in M5672 / R5672C13: '0'
## Warning: Coercing text to numeric in E5673 / R5673C5: '3'
## Warning: Coercing text to numeric in F5673 / R5673C6: '3'
## Warning: Coercing text to numeric in H5673 / R5673C8: '1'
## Warning: Coercing text to numeric in J5673 / R5673C10: '6'
## Warning: Coercing text to numeric in K5673 / R5673C11: '4'
## Warning: Coercing text to numeric in L5673 / R5673C12: '2'
## Warning: Coercing text to numeric in M5673 / R5673C13: '7'
## Warning: Coercing text to numeric in E5674 / R5674C5: '3'
## Warning: Coercing text to numeric in F5674 / R5674C6: '3'
## Warning: Coercing text to numeric in H5674 / R5674C8: '1'
## Warning: Coercing text to numeric in J5674 / R5674C10: '6'
## Warning: Coercing text to numeric in K5674 / R5674C11: '4'
## Warning: Coercing text to numeric in L5674 / R5674C12: '1'
## Warning: Coercing text to numeric in M5674 / R5674C13: '0'
## Warning: Coercing text to numeric in E5675 / R5675C5: '1'
## Warning: Coercing text to numeric in F5675 / R5675C6: '3'
## Warning: Coercing text to numeric in H5675 / R5675C8: '1'
## Warning: Coercing text to numeric in J5675 / R5675C10: '4'
## Warning: Coercing text to numeric in K5675 / R5675C11: '4'
## Warning: Coercing text to numeric in L5675 / R5675C12: '1'
## Warning: Coercing text to numeric in M5675 / R5675C13: '0'
## Warning: Coercing text to numeric in E5676 / R5676C5: '19'
## Warning: Coercing text to numeric in F5676 / R5676C6: '3'
## Warning: Coercing text to numeric in H5676 / R5676C8: '1'
## Warning: Coercing text to numeric in J5676 / R5676C10: '6'
## Warning: Coercing text to numeric in K5676 / R5676C11: '4'
## Warning: Coercing text to numeric in L5676 / R5676C12: '1'
## Warning: Coercing text to numeric in M5676 / R5676C13: '0'
## Warning: Coercing text to numeric in E5677 / R5677C5: '5'
## Warning: Coercing text to numeric in F5677 / R5677C6: '3'
## Warning: Coercing text to numeric in H5677 / R5677C8: '1'
## Warning: Coercing text to numeric in J5677 / R5677C10: '6'
## Warning: Coercing text to numeric in K5677 / R5677C11: '3'
## Warning: Coercing text to numeric in L5677 / R5677C12: '1'
## Warning: Coercing text to numeric in M5677 / R5677C13: '0'
## Warning: Coercing text to numeric in E5678 / R5678C5: '12'
## Warning: Coercing text to numeric in F5678 / R5678C6: '3'
## Warning: Coercing text to numeric in H5678 / R5678C8: '1'
## Warning: Coercing text to numeric in J5678 / R5678C10: '6'
## Warning: Coercing text to numeric in K5678 / R5678C11: '4'
## Warning: Coercing text to numeric in L5678 / R5678C12: '1'
## Warning: Coercing text to numeric in M5678 / R5678C13: '0'
## Warning: Coercing text to numeric in E5679 / R5679C5: '5'
## Warning: Coercing text to numeric in F5679 / R5679C6: '3'
## Warning: Coercing text to numeric in H5679 / R5679C8: '1'
## Warning: Coercing text to numeric in J5679 / R5679C10: '6'
## Warning: Coercing text to numeric in K5679 / R5679C11: '4'
## Warning: Coercing text to numeric in L5679 / R5679C12: '1'
## Warning: Coercing text to numeric in M5679 / R5679C13: '0'
## Warning: Coercing text to numeric in E5680 / R5680C5: '20'
## Warning: Coercing text to numeric in F5680 / R5680C6: '3'
## Warning: Coercing text to numeric in H5680 / R5680C8: '1'
## Warning: Coercing text to numeric in J5680 / R5680C10: '6'
## Warning: Coercing text to numeric in K5680 / R5680C11: '4'
## Warning: Coercing text to numeric in L5680 / R5680C12: '1'
## Warning: Coercing text to numeric in M5680 / R5680C13: '0'
## Warning: Coercing text to numeric in E5681 / R5681C5: '3'
## Warning: Coercing text to numeric in F5681 / R5681C6: '3'
## Warning: Coercing text to numeric in H5681 / R5681C8: '1'
## Warning: Coercing text to numeric in J5681 / R5681C10: '6'
## Warning: Coercing text to numeric in K5681 / R5681C11: '4'
## Warning: Coercing text to numeric in L5681 / R5681C12: '2'
## Warning: Coercing text to numeric in M5681 / R5681C13: '7'
## Warning: Coercing text to numeric in E5682 / R5682C5: '2'
## Warning: Coercing text to numeric in F5682 / R5682C6: '3'
## Warning: Coercing text to numeric in H5682 / R5682C8: '1'
## Warning: Coercing text to numeric in J5682 / R5682C10: '6'
## Warning: Coercing text to numeric in K5682 / R5682C11: '4'
## Warning: Coercing text to numeric in L5682 / R5682C12: '1'
## Warning: Coercing text to numeric in M5682 / R5682C13: '0'
## Warning: Coercing text to numeric in E5683 / R5683C5: '2'
## Warning: Coercing text to numeric in F5683 / R5683C6: '2'
## Warning: Coercing text to numeric in H5683 / R5683C8: '1'
## Warning: Coercing text to numeric in J5683 / R5683C10: '6'
## Warning: Coercing text to numeric in K5683 / R5683C11: '4'
## Warning: Coercing text to numeric in L5683 / R5683C12: '1'
## Warning: Coercing text to numeric in M5683 / R5683C13: '0'
## Warning: Coercing text to numeric in E5684 / R5684C5: '12'
## Warning: Coercing text to numeric in F5684 / R5684C6: '3'
## Warning: Coercing text to numeric in H5684 / R5684C8: '1'
## Warning: Coercing text to numeric in J5684 / R5684C10: '5'
## Warning: Coercing text to numeric in K5684 / R5684C11: '4'
## Warning: Coercing text to numeric in L5684 / R5684C12: '1'
## Warning: Coercing text to numeric in M5684 / R5684C13: '0'
## Warning: Coercing text to numeric in E5685 / R5685C5: '3'
## Warning: Coercing text to numeric in F5685 / R5685C6: '3'
## Warning: Coercing text to numeric in H5685 / R5685C8: '2'
## Warning: Coercing text to numeric in J5685 / R5685C10: '6'
## Warning: Coercing text to numeric in K5685 / R5685C11: '4'
## Warning: Coercing text to numeric in L5685 / R5685C12: '1'
## Warning: Coercing text to numeric in M5685 / R5685C13: '0'
## Warning: Coercing text to numeric in E5686 / R5686C5: '9'
## Warning: Coercing text to numeric in F5686 / R5686C6: '3'
## Warning: Coercing text to numeric in H5686 / R5686C8: '1'
## Warning: Coercing text to numeric in J5686 / R5686C10: '6'
## Warning: Coercing text to numeric in K5686 / R5686C11: '3'
## Warning: Coercing text to numeric in L5686 / R5686C12: '1'
## Warning: Coercing text to numeric in M5686 / R5686C13: '0'
## Warning: Coercing text to numeric in E5687 / R5687C5: '4'
## Warning: Coercing text to numeric in F5687 / R5687C6: '3'
## Warning: Coercing text to numeric in H5687 / R5687C8: '1'
## Warning: Coercing text to numeric in J5687 / R5687C10: '6'
## Warning: Coercing text to numeric in K5687 / R5687C11: '4'
## Warning: Coercing text to numeric in L5687 / R5687C12: '1'
## Warning: Coercing text to numeric in M5687 / R5687C13: '0'
## Warning: Coercing text to numeric in E5688 / R5688C5: '3'
## Warning: Coercing text to numeric in F5688 / R5688C6: '3'
## Warning: Coercing text to numeric in H5688 / R5688C8: '2'
## Warning: Coercing text to numeric in J5688 / R5688C10: '6'
## Warning: Coercing text to numeric in K5688 / R5688C11: '4'
## Warning: Coercing text to numeric in L5688 / R5688C12: '1'
## Warning: Coercing text to numeric in M5688 / R5688C13: '0'
## Warning: Coercing text to numeric in E5689 / R5689C5: '1'
## Warning: Coercing text to numeric in F5689 / R5689C6: '3'
## Warning: Coercing text to numeric in H5689 / R5689C8: '1'
## Warning: Coercing text to numeric in J5689 / R5689C10: '6'
## Warning: Coercing text to numeric in K5689 / R5689C11: '4'
## Warning: Coercing text to numeric in L5689 / R5689C12: '1'
## Warning: Coercing text to numeric in M5689 / R5689C13: '0'
## Warning: Coercing text to numeric in E5690 / R5690C5: '9'
## Warning: Coercing text to numeric in F5690 / R5690C6: '3'
## Warning: Coercing text to numeric in H5690 / R5690C8: '1'
## Warning: Coercing text to numeric in J5690 / R5690C10: '6'
## Warning: Coercing text to numeric in K5690 / R5690C11: '4'
## Warning: Coercing text to numeric in L5690 / R5690C12: '1'
## Warning: Coercing text to numeric in M5690 / R5690C13: '0'
## Warning: Coercing text to numeric in E5691 / R5691C5: '2'
## Warning: Coercing text to numeric in F5691 / R5691C6: '2'
## Warning: Coercing text to numeric in H5691 / R5691C8: '1'
## Warning: Coercing text to numeric in J5691 / R5691C10: '6'
## Warning: Coercing text to numeric in K5691 / R5691C11: '4'
## Warning: Coercing text to numeric in L5691 / R5691C12: '1'
## Warning: Coercing text to numeric in M5691 / R5691C13: '0'
## Warning: Coercing text to numeric in E5692 / R5692C5: '5'
## Warning: Coercing text to numeric in F5692 / R5692C6: '3'
## Warning: Coercing text to numeric in H5692 / R5692C8: '1'
## Warning: Coercing text to numeric in J5692 / R5692C10: '6'
## Warning: Coercing text to numeric in K5692 / R5692C11: '4'
## Warning: Coercing text to numeric in L5692 / R5692C12: '1'
## Warning: Coercing text to numeric in M5692 / R5692C13: '0'
## Warning: Coercing text to numeric in E5693 / R5693C5: '19'
## Warning: Coercing text to numeric in F5693 / R5693C6: '3'
## Warning: Coercing text to numeric in H5693 / R5693C8: '1'
## Warning: Coercing text to numeric in J5693 / R5693C10: '6'
## Warning: Coercing text to numeric in K5693 / R5693C11: '4'
## Warning: Coercing text to numeric in L5693 / R5693C12: '1'
## Warning: Coercing text to numeric in M5693 / R5693C13: '0'
## Warning: Coercing text to numeric in E5694 / R5694C5: '3'
## Warning: Coercing text to numeric in F5694 / R5694C6: '3'
## Warning: Coercing text to numeric in H5694 / R5694C8: '1'
## Warning: Coercing text to numeric in J5694 / R5694C10: '6'
## Warning: Coercing text to numeric in K5694 / R5694C11: '2'
## Warning: Coercing text to numeric in L5694 / R5694C12: '1'
## Warning: Coercing text to numeric in M5694 / R5694C13: '4'
## Warning: Coercing text to numeric in E5695 / R5695C5: '6'
## Warning: Coercing text to numeric in F5695 / R5695C6: '2'
## Warning: Coercing text to numeric in H5695 / R5695C8: '1'
## Warning: Coercing text to numeric in J5695 / R5695C10: '6'
## Warning: Coercing text to numeric in K5695 / R5695C11: '4'
## Warning: Coercing text to numeric in L5695 / R5695C12: '1'
## Warning: Coercing text to numeric in M5695 / R5695C13: '0'
## Warning: Coercing text to numeric in E5696 / R5696C5: '2'
## Warning: Coercing text to numeric in F5696 / R5696C6: '3'
## Warning: Coercing text to numeric in H5696 / R5696C8: '2'
## Warning: Coercing text to numeric in J5696 / R5696C10: '6'
## Warning: Coercing text to numeric in K5696 / R5696C11: '4'
## Warning: Coercing text to numeric in L5696 / R5696C12: '2'
## Warning: Coercing text to numeric in M5696 / R5696C13: '0'
## Warning: Coercing text to numeric in E5697 / R5697C5: '3'
## Warning: Coercing text to numeric in F5697 / R5697C6: '2'
## Warning: Coercing text to numeric in H5697 / R5697C8: '1'
## Warning: Coercing text to numeric in J5697 / R5697C10: '6'
## Warning: Coercing text to numeric in K5697 / R5697C11: '4'
## Warning: Coercing text to numeric in L5697 / R5697C12: '1'
## Warning: Coercing text to numeric in M5697 / R5697C13: '0'
## Warning: Coercing text to numeric in E5698 / R5698C5: '8'
## Warning: Coercing text to numeric in F5698 / R5698C6: '3'
## Warning: Coercing text to numeric in H5698 / R5698C8: '1'
## Warning: Coercing text to numeric in J5698 / R5698C10: '6'
## Warning: Coercing text to numeric in K5698 / R5698C11: '4'
## Warning: Coercing text to numeric in L5698 / R5698C12: '1'
## Warning: Coercing text to numeric in M5698 / R5698C13: '0'
## Warning: Coercing text to numeric in E5699 / R5699C5: '4'
## Warning: Coercing text to numeric in F5699 / R5699C6: '3'
## Warning: Coercing text to numeric in H5699 / R5699C8: '1'
## Warning: Coercing text to numeric in J5699 / R5699C10: '6'
## Warning: Coercing text to numeric in K5699 / R5699C11: '4'
## Warning: Coercing text to numeric in L5699 / R5699C12: '1'
## Warning: Coercing text to numeric in M5699 / R5699C13: '0'
## Warning: Coercing text to numeric in E5700 / R5700C5: '10'
## Warning: Coercing text to numeric in F5700 / R5700C6: '3'
## Warning: Coercing text to numeric in H5700 / R5700C8: '1'
## Warning: Coercing text to numeric in J5700 / R5700C10: '6'
## Warning: Coercing text to numeric in K5700 / R5700C11: '4'
## Warning: Coercing text to numeric in L5700 / R5700C12: '1'
## Warning: Coercing text to numeric in M5700 / R5700C13: '0'
## Warning: Coercing text to numeric in E5701 / R5701C5: '4'
## Warning: Coercing text to numeric in F5701 / R5701C6: '3'
## Warning: Coercing text to numeric in H5701 / R5701C8: '1'
## Warning: Coercing text to numeric in J5701 / R5701C10: '6'
## Warning: Coercing text to numeric in K5701 / R5701C11: '4'
## Warning: Coercing text to numeric in L5701 / R5701C12: '1'
## Warning: Coercing text to numeric in M5701 / R5701C13: '0'
## Warning: Coercing text to numeric in E5702 / R5702C5: '2'
## Warning: Coercing text to numeric in F5702 / R5702C6: '3'
## Warning: Coercing text to numeric in H5702 / R5702C8: '1'
## Warning: Coercing text to numeric in J5702 / R5702C10: '6'
## Warning: Coercing text to numeric in K5702 / R5702C11: '2'
## Warning: Coercing text to numeric in L5702 / R5702C12: '1'
## Warning: Coercing text to numeric in M5702 / R5702C13: '4'
## Warning: Coercing text to numeric in E5703 / R5703C5: '11'
## Warning: Coercing text to numeric in F5703 / R5703C6: '2'
## Warning: Coercing text to numeric in H5703 / R5703C8: '1'
## Warning: Coercing text to numeric in J5703 / R5703C10: '6'
## Warning: Coercing text to numeric in K5703 / R5703C11: '4'
## Warning: Coercing text to numeric in L5703 / R5703C12: '1'
## Warning: Coercing text to numeric in M5703 / R5703C13: '0'
## Warning: Coercing text to numeric in E5704 / R5704C5: '6'
## Warning: Coercing text to numeric in F5704 / R5704C6: '2'
## Warning: Coercing text to numeric in H5704 / R5704C8: '1'
## Warning: Coercing text to numeric in J5704 / R5704C10: '6'
## Warning: Coercing text to numeric in K5704 / R5704C11: '4'
## Warning: Coercing text to numeric in L5704 / R5704C12: '1'
## Warning: Coercing text to numeric in M5704 / R5704C13: '0'
## Warning: Coercing text to numeric in E5705 / R5705C5: '3'
## Warning: Coercing text to numeric in F5705 / R5705C6: '2'
## Warning: Coercing text to numeric in H5705 / R5705C8: '1'
## Warning: Coercing text to numeric in J5705 / R5705C10: '6'
## Warning: Coercing text to numeric in K5705 / R5705C11: '3'
## Warning: Coercing text to numeric in L5705 / R5705C12: '1'
## Warning: Coercing text to numeric in M5705 / R5705C13: '0'
## Warning: Coercing text to numeric in E5706 / R5706C5: '10'
## Warning: Coercing text to numeric in F5706 / R5706C6: '2'
## Warning: Coercing text to numeric in H5706 / R5706C8: '1'
## Warning: Coercing text to numeric in J5706 / R5706C10: '6'
## Warning: Coercing text to numeric in K5706 / R5706C11: '4'
## Warning: Coercing text to numeric in L5706 / R5706C12: '1'
## Warning: Coercing text to numeric in M5706 / R5706C13: '0'
## Warning: Coercing text to numeric in E5707 / R5707C5: '2'
## Warning: Coercing text to numeric in F5707 / R5707C6: '3'
## Warning: Coercing text to numeric in H5707 / R5707C8: '1'
## Warning: Coercing text to numeric in J5707 / R5707C10: '6'
## Warning: Coercing text to numeric in K5707 / R5707C11: '4'
## Warning: Coercing text to numeric in L5707 / R5707C12: '1'
## Warning: Coercing text to numeric in M5707 / R5707C13: '0'
## Warning: Coercing text to numeric in E5708 / R5708C5: '2'
## Warning: Coercing text to numeric in F5708 / R5708C6: '3'
## Warning: Coercing text to numeric in H5708 / R5708C8: '1'
## Warning: Coercing text to numeric in J5708 / R5708C10: '6'
## Warning: Coercing text to numeric in K5708 / R5708C11: '4'
## Warning: Coercing text to numeric in L5708 / R5708C12: '1'
## Warning: Coercing text to numeric in M5708 / R5708C13: '0'
## Warning: Coercing text to numeric in E5709 / R5709C5: '3'
## Warning: Coercing text to numeric in F5709 / R5709C6: '3'
## Warning: Coercing text to numeric in H5709 / R5709C8: '1'
## Warning: Coercing text to numeric in J5709 / R5709C10: '6'
## Warning: Coercing text to numeric in K5709 / R5709C11: '4'
## Warning: Coercing text to numeric in L5709 / R5709C12: '1'
## Warning: Coercing text to numeric in M5709 / R5709C13: '0'
## Warning: Coercing text to numeric in E5710 / R5710C5: '7'
## Warning: Coercing text to numeric in F5710 / R5710C6: '2'
## Warning: Coercing text to numeric in H5710 / R5710C8: '1'
## Warning: Coercing text to numeric in J5710 / R5710C10: '6'
## Warning: Coercing text to numeric in K5710 / R5710C11: '4'
## Warning: Coercing text to numeric in L5710 / R5710C12: '1'
## Warning: Coercing text to numeric in M5710 / R5710C13: '0'
## Warning: Coercing text to numeric in E5711 / R5711C5: '5'
## Warning: Coercing text to numeric in F5711 / R5711C6: '2'
## Warning: Coercing text to numeric in H5711 / R5711C8: '1'
## Warning: Coercing text to numeric in J5711 / R5711C10: '6'
## Warning: Coercing text to numeric in K5711 / R5711C11: '4'
## Warning: Coercing text to numeric in L5711 / R5711C12: '1'
## Warning: Coercing text to numeric in M5711 / R5711C13: '0'
## Warning: Coercing text to numeric in E5712 / R5712C5: '2'
## Warning: Coercing text to numeric in F5712 / R5712C6: '3'
## Warning: Coercing text to numeric in H5712 / R5712C8: '1'
## Warning: Coercing text to numeric in J5712 / R5712C10: '6'
## Warning: Coercing text to numeric in K5712 / R5712C11: '4'
## Warning: Coercing text to numeric in L5712 / R5712C12: '1'
## Warning: Coercing text to numeric in M5712 / R5712C13: '7'
## Warning: Coercing text to numeric in E5713 / R5713C5: '7'
## Warning: Coercing text to numeric in F5713 / R5713C6: '3'
## Warning: Coercing text to numeric in H5713 / R5713C8: '3'
## Warning: Coercing text to numeric in J5713 / R5713C10: '6'
## Warning: Coercing text to numeric in K5713 / R5713C11: '4'
## Warning: Coercing text to numeric in L5713 / R5713C12: '1'
## Warning: Coercing text to numeric in M5713 / R5713C13: '0'
## Warning: Coercing text to numeric in E5714 / R5714C5: '4'
## Warning: Coercing text to numeric in F5714 / R5714C6: '2'
## Warning: Coercing text to numeric in H5714 / R5714C8: '1'
## Warning: Coercing text to numeric in J5714 / R5714C10: '6'
## Warning: Coercing text to numeric in K5714 / R5714C11: '4'
## Warning: Coercing text to numeric in L5714 / R5714C12: '1'
## Warning: Coercing text to numeric in M5714 / R5714C13: '0'
## Warning: Coercing text to numeric in E5715 / R5715C5: '2'
## Warning: Coercing text to numeric in F5715 / R5715C6: '2'
## Warning: Coercing text to numeric in H5715 / R5715C8: '1'
## Warning: Coercing text to numeric in J5715 / R5715C10: '6'
## Warning: Coercing text to numeric in K5715 / R5715C11: '4'
## Warning: Coercing text to numeric in L5715 / R5715C12: '1'
## Warning: Coercing text to numeric in M5715 / R5715C13: '0'
## Warning: Coercing text to numeric in E5716 / R5716C5: '12'
## Warning: Coercing text to numeric in F5716 / R5716C6: '3'
## Warning: Coercing text to numeric in H5716 / R5716C8: '1'
## Warning: Coercing text to numeric in J5716 / R5716C10: '6'
## Warning: Coercing text to numeric in K5716 / R5716C11: '3'
## Warning: Coercing text to numeric in L5716 / R5716C12: '1'
## Warning: Coercing text to numeric in M5716 / R5716C13: '0'
## Warning: Coercing text to numeric in E5717 / R5717C5: '2'
## Warning: Coercing text to numeric in F5717 / R5717C6: '2'
## Warning: Coercing text to numeric in H5717 / R5717C8: '1'
## Warning: Coercing text to numeric in J5717 / R5717C10: '6'
## Warning: Coercing text to numeric in K5717 / R5717C11: '4'
## Warning: Coercing text to numeric in L5717 / R5717C12: '1'
## Warning: Coercing text to numeric in M5717 / R5717C13: '7'
## Warning: Coercing text to numeric in E5718 / R5718C5: '10'
## Warning: Coercing text to numeric in F5718 / R5718C6: '3'
## Warning: Coercing text to numeric in H5718 / R5718C8: '1'
## Warning: Coercing text to numeric in J5718 / R5718C10: '6'
## Warning: Coercing text to numeric in K5718 / R5718C11: '4'
## Warning: Coercing text to numeric in L5718 / R5718C12: '1'
## Warning: Coercing text to numeric in M5718 / R5718C13: '0'
## Warning: Coercing text to numeric in E5719 / R5719C5: '10'
## Warning: Coercing text to numeric in F5719 / R5719C6: '3'
## Warning: Coercing text to numeric in H5719 / R5719C8: '1'
## Warning: Coercing text to numeric in J5719 / R5719C10: '6'
## Warning: Coercing text to numeric in K5719 / R5719C11: '2'
## Warning: Coercing text to numeric in L5719 / R5719C12: '1'
## Warning: Coercing text to numeric in M5719 / R5719C13: '4'
## Warning: Coercing text to numeric in E5720 / R5720C5: '1'
## Warning: Coercing text to numeric in F5720 / R5720C6: '3'
## Warning: Coercing text to numeric in H5720 / R5720C8: '3'
## Warning: Coercing text to numeric in J5720 / R5720C10: '6'
## Warning: Coercing text to numeric in K5720 / R5720C11: '4'
## Warning: Coercing text to numeric in L5720 / R5720C12: '1'
## Warning: Coercing text to numeric in M5720 / R5720C13: '0'
## Warning: Coercing text to numeric in E5721 / R5721C5: '4'
## Warning: Coercing text to numeric in F5721 / R5721C6: '3'
## Warning: Coercing text to numeric in H5721 / R5721C8: '1'
## Warning: Coercing text to numeric in J5721 / R5721C10: '6'
## Warning: Coercing text to numeric in K5721 / R5721C11: '4'
## Warning: Coercing text to numeric in L5721 / R5721C12: '1'
## Warning: Coercing text to numeric in M5721 / R5721C13: '0'
## Warning: Coercing text to numeric in E5722 / R5722C5: '2'
## Warning: Coercing text to numeric in F5722 / R5722C6: '3'
## Warning: Coercing text to numeric in H5722 / R5722C8: '1'
## Warning: Coercing text to numeric in J5722 / R5722C10: '6'
## Warning: Coercing text to numeric in K5722 / R5722C11: '4'
## Warning: Coercing text to numeric in L5722 / R5722C12: '1'
## Warning: Coercing text to numeric in M5722 / R5722C13: '0'
## Warning: Coercing text to numeric in E5723 / R5723C5: '5'
## Warning: Coercing text to numeric in F5723 / R5723C6: '3'
## Warning: Coercing text to numeric in H5723 / R5723C8: '1'
## Warning: Coercing text to numeric in J5723 / R5723C10: '6'
## Warning: Coercing text to numeric in K5723 / R5723C11: '4'
## Warning: Coercing text to numeric in L5723 / R5723C12: '1'
## Warning: Coercing text to numeric in M5723 / R5723C13: '0'
## Warning: Coercing text to numeric in E5724 / R5724C5: '1'
## Warning: Coercing text to numeric in F5724 / R5724C6: '3'
## Warning: Coercing text to numeric in H5724 / R5724C8: '1'
## Warning: Coercing text to numeric in J5724 / R5724C10: '6'
## Warning: Coercing text to numeric in K5724 / R5724C11: '4'
## Warning: Coercing text to numeric in L5724 / R5724C12: '1'
## Warning: Coercing text to numeric in M5724 / R5724C13: '0'
## Warning: Coercing text to numeric in E5725 / R5725C5: '3'
## Warning: Coercing text to numeric in F5725 / R5725C6: '2'
## Warning: Coercing text to numeric in H5725 / R5725C8: '1'
## Warning: Coercing text to numeric in J5725 / R5725C10: '6'
## Warning: Coercing text to numeric in K5725 / R5725C11: '4'
## Warning: Coercing text to numeric in L5725 / R5725C12: '1'
## Warning: Coercing text to numeric in M5725 / R5725C13: '0'
## Warning: Coercing text to numeric in E5726 / R5726C5: '9'
## Warning: Coercing text to numeric in F5726 / R5726C6: '2'
## Warning: Coercing text to numeric in H5726 / R5726C8: '1'
## Warning: Coercing text to numeric in J5726 / R5726C10: '6'
## Warning: Coercing text to numeric in K5726 / R5726C11: '4'
## Warning: Coercing text to numeric in L5726 / R5726C12: '1'
## Warning: Coercing text to numeric in M5726 / R5726C13: '0'
## Warning: Coercing text to numeric in E5727 / R5727C5: '3'
## Warning: Coercing text to numeric in F5727 / R5727C6: '2'
## Warning: Coercing text to numeric in H5727 / R5727C8: '1'
## Warning: Coercing text to numeric in J5727 / R5727C10: '6'
## Warning: Coercing text to numeric in K5727 / R5727C11: '4'
## Warning: Coercing text to numeric in L5727 / R5727C12: '1'
## Warning: Coercing text to numeric in M5727 / R5727C13: '0'
## Warning: Coercing text to numeric in E5728 / R5728C5: '10'
## Warning: Coercing text to numeric in F5728 / R5728C6: '3'
## Warning: Coercing text to numeric in H5728 / R5728C8: '1'
## Warning: Coercing text to numeric in J5728 / R5728C10: '6'
## Warning: Coercing text to numeric in K5728 / R5728C11: '4'
## Warning: Coercing text to numeric in L5728 / R5728C12: '1'
## Warning: Coercing text to numeric in M5728 / R5728C13: '0'
## Warning: Coercing text to numeric in E5729 / R5729C5: '3'
## Warning: Coercing text to numeric in F5729 / R5729C6: '3'
## Warning: Coercing text to numeric in H5729 / R5729C8: '2'
## Warning: Coercing text to numeric in J5729 / R5729C10: '6'
## Warning: Coercing text to numeric in K5729 / R5729C11: '4'
## Warning: Coercing text to numeric in L5729 / R5729C12: '1'
## Warning: Coercing text to numeric in M5729 / R5729C13: '0'
## Warning: Coercing text to numeric in E5730 / R5730C5: '22'
## Warning: Coercing text to numeric in F5730 / R5730C6: '3'
## Warning: Coercing text to numeric in H5730 / R5730C8: '1'
## Warning: Coercing text to numeric in J5730 / R5730C10: '6'
## Warning: Coercing text to numeric in K5730 / R5730C11: '4'
## Warning: Coercing text to numeric in L5730 / R5730C12: '1'
## Warning: Coercing text to numeric in M5730 / R5730C13: '0'
## Warning: Coercing text to numeric in E5731 / R5731C5: '11'
## Warning: Coercing text to numeric in F5731 / R5731C6: '3'
## Warning: Coercing text to numeric in H5731 / R5731C8: '1'
## Warning: Coercing text to numeric in J5731 / R5731C10: '6'
## Warning: Coercing text to numeric in K5731 / R5731C11: '4'
## Warning: Coercing text to numeric in L5731 / R5731C12: '1'
## Warning: Coercing text to numeric in M5731 / R5731C13: '0'
## Warning: Coercing text to numeric in E5732 / R5732C5: '7'
## Warning: Coercing text to numeric in F5732 / R5732C6: '2'
## Warning: Coercing text to numeric in H5732 / R5732C8: '1'
## Warning: Coercing text to numeric in J5732 / R5732C10: '6'
## Warning: Coercing text to numeric in K5732 / R5732C11: '4'
## Warning: Coercing text to numeric in L5732 / R5732C12: '1'
## Warning: Coercing text to numeric in M5732 / R5732C13: '0'
## Warning: Coercing text to numeric in E5733 / R5733C5: '3'
## Warning: Coercing text to numeric in F5733 / R5733C6: '3'
## Warning: Coercing text to numeric in H5733 / R5733C8: '1'
## Warning: Coercing text to numeric in J5733 / R5733C10: '6'
## Warning: Coercing text to numeric in K5733 / R5733C11: '4'
## Warning: Coercing text to numeric in L5733 / R5733C12: '2'
## Warning: Coercing text to numeric in M5733 / R5733C13: '0'
## Warning: Coercing text to numeric in E5734 / R5734C5: '8'
## Warning: Coercing text to numeric in F5734 / R5734C6: '3'
## Warning: Coercing text to numeric in H5734 / R5734C8: '1'
## Warning: Coercing text to numeric in J5734 / R5734C10: '5'
## Warning: Coercing text to numeric in K5734 / R5734C11: '4'
## Warning: Coercing text to numeric in L5734 / R5734C12: '1'
## Warning: Coercing text to numeric in M5734 / R5734C13: '0'
## Warning: Coercing text to numeric in E5735 / R5735C5: '5'
## Warning: Coercing text to numeric in F5735 / R5735C6: '3'
## Warning: Coercing text to numeric in H5735 / R5735C8: '1'
## Warning: Coercing text to numeric in J5735 / R5735C10: '6'
## Warning: Coercing text to numeric in K5735 / R5735C11: '4'
## Warning: Coercing text to numeric in L5735 / R5735C12: '1'
## Warning: Coercing text to numeric in M5735 / R5735C13: '0'
## Warning: Coercing text to numeric in E5736 / R5736C5: '3'
## Warning: Coercing text to numeric in F5736 / R5736C6: '3'
## Warning: Coercing text to numeric in H5736 / R5736C8: '1'
## Warning: Coercing text to numeric in J5736 / R5736C10: '6'
## Warning: Coercing text to numeric in K5736 / R5736C11: '4'
## Warning: Coercing text to numeric in L5736 / R5736C12: '1'
## Warning: Coercing text to numeric in M5736 / R5736C13: '0'
## Warning: Coercing text to numeric in E5737 / R5737C5: '8'
## Warning: Coercing text to numeric in F5737 / R5737C6: '2'
## Warning: Coercing text to numeric in H5737 / R5737C8: '1'
## Warning: Coercing text to numeric in J5737 / R5737C10: '6'
## Warning: Coercing text to numeric in K5737 / R5737C11: '4'
## Warning: Coercing text to numeric in L5737 / R5737C12: '1'
## Warning: Coercing text to numeric in M5737 / R5737C13: '0'
## Warning: Coercing text to numeric in E5738 / R5738C5: '8'
## Warning: Coercing text to numeric in F5738 / R5738C6: '2'
## Warning: Coercing text to numeric in H5738 / R5738C8: '3'
## Warning: Coercing text to numeric in J5738 / R5738C10: '6'
## Warning: Coercing text to numeric in K5738 / R5738C11: '4'
## Warning: Coercing text to numeric in L5738 / R5738C12: '1'
## Warning: Coercing text to numeric in M5738 / R5738C13: '0'
## Warning: Coercing text to numeric in E5739 / R5739C5: '10'
## Warning: Coercing text to numeric in F5739 / R5739C6: '2'
## Warning: Coercing text to numeric in H5739 / R5739C8: '1'
## Warning: Coercing text to numeric in J5739 / R5739C10: '6'
## Warning: Coercing text to numeric in K5739 / R5739C11: '3'
## Warning: Coercing text to numeric in L5739 / R5739C12: '1'
## Warning: Coercing text to numeric in M5739 / R5739C13: '0'
## Warning: Coercing text to numeric in E5740 / R5740C5: '5'
## Warning: Coercing text to numeric in F5740 / R5740C6: '2'
## Warning: Coercing text to numeric in H5740 / R5740C8: '1'
## Warning: Coercing text to numeric in J5740 / R5740C10: '6'
## Warning: Coercing text to numeric in K5740 / R5740C11: '4'
## Warning: Coercing text to numeric in L5740 / R5740C12: '1'
## Warning: Coercing text to numeric in M5740 / R5740C13: '7'
## Warning: Coercing text to numeric in E5741 / R5741C5: '9'
## Warning: Coercing text to numeric in F5741 / R5741C6: '2'
## Warning: Coercing text to numeric in H5741 / R5741C8: '1'
## Warning: Coercing text to numeric in J5741 / R5741C10: '6'
## Warning: Coercing text to numeric in K5741 / R5741C11: '2'
## Warning: Coercing text to numeric in L5741 / R5741C12: '1'
## Warning: Coercing text to numeric in M5741 / R5741C13: '4'
## Warning: Coercing text to numeric in E5742 / R5742C5: '2'
## Warning: Coercing text to numeric in F5742 / R5742C6: '2'
## Warning: Coercing text to numeric in H5742 / R5742C8: '1'
## Warning: Coercing text to numeric in J5742 / R5742C10: '6'
## Warning: Coercing text to numeric in K5742 / R5742C11: '4'
## Warning: Coercing text to numeric in L5742 / R5742C12: '1'
## Warning: Coercing text to numeric in M5742 / R5742C13: '0'
## Warning: Coercing text to numeric in E5743 / R5743C5: '2'
## Warning: Coercing text to numeric in F5743 / R5743C6: '2'
## Warning: Coercing text to numeric in H5743 / R5743C8: '1'
## Warning: Coercing text to numeric in J5743 / R5743C10: '6'
## Warning: Coercing text to numeric in K5743 / R5743C11: '2'
## Warning: Coercing text to numeric in L5743 / R5743C12: '1'
## Warning: Coercing text to numeric in M5743 / R5743C13: '4'
## Warning: Coercing text to numeric in E5744 / R5744C5: '7'
## Warning: Coercing text to numeric in F5744 / R5744C6: '2'
## Warning: Coercing text to numeric in H5744 / R5744C8: '1'
## Warning: Coercing text to numeric in J5744 / R5744C10: '6'
## Warning: Coercing text to numeric in K5744 / R5744C11: '4'
## Warning: Coercing text to numeric in L5744 / R5744C12: '1'
## Warning: Coercing text to numeric in M5744 / R5744C13: '7'
## Warning: Coercing text to numeric in E5745 / R5745C5: '9'
## Warning: Coercing text to numeric in F5745 / R5745C6: '2'
## Warning: Coercing text to numeric in H5745 / R5745C8: '1'
## Warning: Coercing text to numeric in J5745 / R5745C10: '6'
## Warning: Coercing text to numeric in K5745 / R5745C11: '2'
## Warning: Coercing text to numeric in L5745 / R5745C12: '1'
## Warning: Coercing text to numeric in M5745 / R5745C13: '4'
## Warning: Coercing text to numeric in E5746 / R5746C5: '9'
## Warning: Coercing text to numeric in F5746 / R5746C6: '2'
## Warning: Coercing text to numeric in H5746 / R5746C8: '1'
## Warning: Coercing text to numeric in J5746 / R5746C10: '6'
## Warning: Coercing text to numeric in K5746 / R5746C11: '2'
## Warning: Coercing text to numeric in L5746 / R5746C12: '1'
## Warning: Coercing text to numeric in M5746 / R5746C13: '4'
## Warning: Coercing text to numeric in E5747 / R5747C5: '6'
## Warning: Coercing text to numeric in F5747 / R5747C6: '3'
## Warning: Coercing text to numeric in H5747 / R5747C8: '1'
## Warning: Coercing text to numeric in J5747 / R5747C10: '6'
## Warning: Coercing text to numeric in K5747 / R5747C11: '2'
## Warning: Coercing text to numeric in L5747 / R5747C12: '1'
## Warning: Coercing text to numeric in M5747 / R5747C13: '4'
## Warning: Coercing text to numeric in E5748 / R5748C5: '7'
## Warning: Coercing text to numeric in F5748 / R5748C6: '2'
## Warning: Coercing text to numeric in H5748 / R5748C8: '1'
## Warning: Coercing text to numeric in J5748 / R5748C10: '6'
## Warning: Coercing text to numeric in K5748 / R5748C11: '4'
## Warning: Coercing text to numeric in L5748 / R5748C12: '1'
## Warning: Coercing text to numeric in M5748 / R5748C13: '0'
## Warning: Coercing text to numeric in E5749 / R5749C5: '5'
## Warning: Coercing text to numeric in F5749 / R5749C6: '2'
## Warning: Coercing text to numeric in H5749 / R5749C8: '1'
## Warning: Coercing text to numeric in J5749 / R5749C10: '6'
## Warning: Coercing text to numeric in K5749 / R5749C11: '4'
## Warning: Coercing text to numeric in L5749 / R5749C12: '1'
## Warning: Coercing text to numeric in M5749 / R5749C13: '0'
## Warning: Coercing text to numeric in E5750 / R5750C5: '5'
## Warning: Coercing text to numeric in F5750 / R5750C6: '2'
## Warning: Coercing text to numeric in H5750 / R5750C8: '1'
## Warning: Coercing text to numeric in J5750 / R5750C10: '6'
## Warning: Coercing text to numeric in K5750 / R5750C11: '4'
## Warning: Coercing text to numeric in L5750 / R5750C12: '1'
## Warning: Coercing text to numeric in M5750 / R5750C13: '0'
## Warning: Coercing text to numeric in E5751 / R5751C5: '1'
## Warning: Coercing text to numeric in F5751 / R5751C6: '2'
## Warning: Coercing text to numeric in H5751 / R5751C8: '1'
## Warning: Coercing text to numeric in J5751 / R5751C10: '6'
## Warning: Coercing text to numeric in K5751 / R5751C11: '4'
## Warning: Coercing text to numeric in L5751 / R5751C12: '1'
## Warning: Coercing text to numeric in M5751 / R5751C13: '0'
## Warning: Coercing text to numeric in E5752 / R5752C5: '4'
## Warning: Coercing text to numeric in F5752 / R5752C6: '2'
## Warning: Coercing text to numeric in H5752 / R5752C8: '1'
## Warning: Coercing text to numeric in J5752 / R5752C10: '6'
## Warning: Coercing text to numeric in K5752 / R5752C11: '4'
## Warning: Coercing text to numeric in L5752 / R5752C12: '1'
## Warning: Coercing text to numeric in M5752 / R5752C13: '0'
## Warning: Coercing text to numeric in E5753 / R5753C5: '6'
## Warning: Coercing text to numeric in F5753 / R5753C6: '2'
## Warning: Coercing text to numeric in H5753 / R5753C8: '1'
## Warning: Coercing text to numeric in J5753 / R5753C10: '6'
## Warning: Coercing text to numeric in K5753 / R5753C11: '4'
## Warning: Coercing text to numeric in L5753 / R5753C12: '1'
## Warning: Coercing text to numeric in M5753 / R5753C13: '0'
## Warning: Coercing text to numeric in E5754 / R5754C5: '1'
## Warning: Coercing text to numeric in F5754 / R5754C6: '2'
## Warning: Coercing text to numeric in H5754 / R5754C8: '1'
## Warning: Coercing text to numeric in J5754 / R5754C10: '6'
## Warning: Coercing text to numeric in K5754 / R5754C11: '4'
## Warning: Coercing text to numeric in L5754 / R5754C12: '1'
## Warning: Coercing text to numeric in M5754 / R5754C13: '0'
## Warning: Coercing text to numeric in E5755 / R5755C5: '6'
## Warning: Coercing text to numeric in F5755 / R5755C6: '2'
## Warning: Coercing text to numeric in H5755 / R5755C8: '1'
## Warning: Coercing text to numeric in J5755 / R5755C10: '6'
## Warning: Coercing text to numeric in K5755 / R5755C11: '4'
## Warning: Coercing text to numeric in L5755 / R5755C12: '1'
## Warning: Coercing text to numeric in M5755 / R5755C13: '0'
## Warning: Coercing text to numeric in E5756 / R5756C5: '4'
## Warning: Coercing text to numeric in F5756 / R5756C6: '2'
## Warning: Coercing text to numeric in H5756 / R5756C8: '2'
## Warning: Coercing text to numeric in J5756 / R5756C10: '6'
## Warning: Coercing text to numeric in K5756 / R5756C11: '4'
## Warning: Coercing text to numeric in L5756 / R5756C12: '1'
## Warning: Coercing text to numeric in M5756 / R5756C13: '0'
## Warning: Coercing text to numeric in E5757 / R5757C5: '2'
## Warning: Coercing text to numeric in F5757 / R5757C6: '2'
## Warning: Coercing text to numeric in H5757 / R5757C8: '2'
## Warning: Coercing text to numeric in J5757 / R5757C10: '6'
## Warning: Coercing text to numeric in K5757 / R5757C11: '4'
## Warning: Coercing text to numeric in L5757 / R5757C12: '1'
## Warning: Coercing text to numeric in M5757 / R5757C13: '0'
## Warning: Coercing text to numeric in E5758 / R5758C5: '13'
## Warning: Coercing text to numeric in F5758 / R5758C6: '3'
## Warning: Coercing text to numeric in H5758 / R5758C8: '1'
## Warning: Coercing text to numeric in J5758 / R5758C10: '6'
## Warning: Coercing text to numeric in K5758 / R5758C11: '3'
## Warning: Coercing text to numeric in L5758 / R5758C12: '1'
## Warning: Coercing text to numeric in M5758 / R5758C13: '4'
## Warning: Coercing text to numeric in E5759 / R5759C5: '9'
## Warning: Coercing text to numeric in F5759 / R5759C6: '2'
## Warning: Coercing text to numeric in H5759 / R5759C8: '2'
## Warning: Coercing text to numeric in J5759 / R5759C10: '6'
## Warning: Coercing text to numeric in K5759 / R5759C11: '4'
## Warning: Coercing text to numeric in L5759 / R5759C12: '1'
## Warning: Coercing text to numeric in M5759 / R5759C13: '0'
## Warning: Coercing text to numeric in E5760 / R5760C5: '8'
## Warning: Coercing text to numeric in F5760 / R5760C6: '3'
## Warning: Coercing text to numeric in H5760 / R5760C8: '1'
## Warning: Coercing text to numeric in J5760 / R5760C10: '6'
## Warning: Coercing text to numeric in K5760 / R5760C11: '4'
## Warning: Coercing text to numeric in L5760 / R5760C12: '1'
## Warning: Coercing text to numeric in M5760 / R5760C13: '0'
## Warning: Coercing text to numeric in E5761 / R5761C5: '18'
## Warning: Coercing text to numeric in F5761 / R5761C6: '3'
## Warning: Coercing text to numeric in H5761 / R5761C8: '1'
## Warning: Coercing text to numeric in J5761 / R5761C10: '6'
## Warning: Coercing text to numeric in K5761 / R5761C11: '4'
## Warning: Coercing text to numeric in L5761 / R5761C12: '1'
## Warning: Coercing text to numeric in M5761 / R5761C13: '0'
## Warning: Coercing text to numeric in E5762 / R5762C5: '8'
## Warning: Coercing text to numeric in F5762 / R5762C6: '2'
## Warning: Coercing text to numeric in H5762 / R5762C8: '1'
## Warning: Coercing text to numeric in J5762 / R5762C10: '6'
## Warning: Coercing text to numeric in K5762 / R5762C11: '2'
## Warning: Coercing text to numeric in L5762 / R5762C12: '1'
## Warning: Coercing text to numeric in M5762 / R5762C13: '4'
## Warning: Coercing text to numeric in E5763 / R5763C5: '2'
## Warning: Coercing text to numeric in F5763 / R5763C6: '2'
## Warning: Coercing text to numeric in H5763 / R5763C8: '1'
## Warning: Coercing text to numeric in J5763 / R5763C10: '6'
## Warning: Coercing text to numeric in K5763 / R5763C11: '2'
## Warning: Coercing text to numeric in L5763 / R5763C12: '1'
## Warning: Coercing text to numeric in M5763 / R5763C13: '4'
## Warning: Coercing text to numeric in E5764 / R5764C5: '6'
## Warning: Coercing text to numeric in F5764 / R5764C6: '2'
## Warning: Coercing text to numeric in H5764 / R5764C8: '1'
## Warning: Coercing text to numeric in J5764 / R5764C10: '6'
## Warning: Coercing text to numeric in K5764 / R5764C11: '2'
## Warning: Coercing text to numeric in L5764 / R5764C12: '1'
## Warning: Coercing text to numeric in M5764 / R5764C13: '4'
## Warning: Coercing text to numeric in E5765 / R5765C5: '5'
## Warning: Coercing text to numeric in F5765 / R5765C6: '2'
## Warning: Coercing text to numeric in H5765 / R5765C8: '1'
## Warning: Coercing text to numeric in J5765 / R5765C10: '6'
## Warning: Coercing text to numeric in K5765 / R5765C11: '2'
## Warning: Coercing text to numeric in L5765 / R5765C12: '1'
## Warning: Coercing text to numeric in M5765 / R5765C13: '4'
## Warning: Coercing text to numeric in E5766 / R5766C5: '1'
## Warning: Coercing text to numeric in F5766 / R5766C6: '2'
## Warning: Coercing text to numeric in H5766 / R5766C8: '1'
## Warning: Coercing text to numeric in J5766 / R5766C10: '6'
## Warning: Coercing text to numeric in K5766 / R5766C11: '2'
## Warning: Coercing text to numeric in L5766 / R5766C12: '1'
## Warning: Coercing text to numeric in M5766 / R5766C13: '4'
## Warning: Coercing text to numeric in E5767 / R5767C5: '5'
## Warning: Coercing text to numeric in F5767 / R5767C6: '2'
## Warning: Coercing text to numeric in H5767 / R5767C8: '1'
## Warning: Coercing text to numeric in J5767 / R5767C10: '6'
## Warning: Coercing text to numeric in K5767 / R5767C11: '2'
## Warning: Coercing text to numeric in L5767 / R5767C12: '1'
## Warning: Coercing text to numeric in M5767 / R5767C13: '4'
## Warning: Coercing text to numeric in E5768 / R5768C5: '9'
## Warning: Coercing text to numeric in F5768 / R5768C6: '2'
## Warning: Coercing text to numeric in H5768 / R5768C8: '1'
## Warning: Coercing text to numeric in J5768 / R5768C10: '6'
## Warning: Coercing text to numeric in K5768 / R5768C11: '4'
## Warning: Coercing text to numeric in L5768 / R5768C12: '1'
## Warning: Coercing text to numeric in M5768 / R5768C13: '0'
## Warning: Coercing text to numeric in E5769 / R5769C5: '3'
## Warning: Coercing text to numeric in F5769 / R5769C6: '2'
## Warning: Coercing text to numeric in H5769 / R5769C8: '1'
## Warning: Coercing text to numeric in J5769 / R5769C10: '6'
## Warning: Coercing text to numeric in K5769 / R5769C11: '4'
## Warning: Coercing text to numeric in L5769 / R5769C12: '1'
## Warning: Coercing text to numeric in M5769 / R5769C13: '0'
## Warning: Coercing text to numeric in E5770 / R5770C5: '3'
## Warning: Coercing text to numeric in F5770 / R5770C6: '2'
## Warning: Coercing text to numeric in H5770 / R5770C8: '1'
## Warning: Coercing text to numeric in J5770 / R5770C10: '6'
## Warning: Coercing text to numeric in K5770 / R5770C11: '4'
## Warning: Coercing text to numeric in L5770 / R5770C12: '1'
## Warning: Coercing text to numeric in M5770 / R5770C13: '0'
## Warning: Coercing text to numeric in E5771 / R5771C5: '1'
## Warning: Coercing text to numeric in F5771 / R5771C6: '2'
## Warning: Coercing text to numeric in H5771 / R5771C8: '1'
## Warning: Coercing text to numeric in J5771 / R5771C10: '6'
## Warning: Coercing text to numeric in K5771 / R5771C11: '4'
## Warning: Coercing text to numeric in L5771 / R5771C12: '1'
## Warning: Coercing text to numeric in M5771 / R5771C13: '0'
## Warning: Coercing text to numeric in E5772 / R5772C5: '4'
## Warning: Coercing text to numeric in F5772 / R5772C6: '2'
## Warning: Coercing text to numeric in H5772 / R5772C8: '1'
## Warning: Coercing text to numeric in J5772 / R5772C10: '6'
## Warning: Coercing text to numeric in K5772 / R5772C11: '4'
## Warning: Coercing text to numeric in L5772 / R5772C12: '1'
## Warning: Coercing text to numeric in M5772 / R5772C13: '0'
## Warning: Coercing text to numeric in E5773 / R5773C5: '6'
## Warning: Coercing text to numeric in F5773 / R5773C6: '2'
## Warning: Coercing text to numeric in H5773 / R5773C8: '1'
## Warning: Coercing text to numeric in J5773 / R5773C10: '6'
## Warning: Coercing text to numeric in K5773 / R5773C11: '4'
## Warning: Coercing text to numeric in L5773 / R5773C12: '1'
## Warning: Coercing text to numeric in M5773 / R5773C13: '0'
## Warning: Coercing text to numeric in E5774 / R5774C5: '8'
## Warning: Coercing text to numeric in F5774 / R5774C6: '2'
## Warning: Coercing text to numeric in H5774 / R5774C8: '1'
## Warning: Coercing text to numeric in J5774 / R5774C10: '6'
## Warning: Coercing text to numeric in K5774 / R5774C11: '4'
## Warning: Coercing text to numeric in L5774 / R5774C12: '1'
## Warning: Coercing text to numeric in M5774 / R5774C13: '0'
## Warning: Coercing text to numeric in E5775 / R5775C5: '6'
## Warning: Coercing text to numeric in F5775 / R5775C6: '2'
## Warning: Coercing text to numeric in H5775 / R5775C8: '1'
## Warning: Coercing text to numeric in J5775 / R5775C10: '6'
## Warning: Coercing text to numeric in K5775 / R5775C11: '4'
## Warning: Coercing text to numeric in L5775 / R5775C12: '1'
## Warning: Coercing text to numeric in M5775 / R5775C13: '0'
## Warning: Coercing text to numeric in E5776 / R5776C5: '3'
## Warning: Coercing text to numeric in F5776 / R5776C6: '2'
## Warning: Coercing text to numeric in H5776 / R5776C8: '1'
## Warning: Coercing text to numeric in J5776 / R5776C10: '6'
## Warning: Coercing text to numeric in K5776 / R5776C11: '4'
## Warning: Coercing text to numeric in L5776 / R5776C12: '1'
## Warning: Coercing text to numeric in M5776 / R5776C13: '0'
## Warning: Coercing text to numeric in E5777 / R5777C5: '8'
## Warning: Coercing text to numeric in F5777 / R5777C6: '2'
## Warning: Coercing text to numeric in H5777 / R5777C8: '1'
## Warning: Coercing text to numeric in J5777 / R5777C10: '6'
## Warning: Coercing text to numeric in K5777 / R5777C11: '4'
## Warning: Coercing text to numeric in L5777 / R5777C12: '1'
## Warning: Coercing text to numeric in M5777 / R5777C13: '0'
## Warning: Coercing text to numeric in E5778 / R5778C5: '15'
## Warning: Coercing text to numeric in F5778 / R5778C6: '3'
## Warning: Coercing text to numeric in H5778 / R5778C8: '1'
## Warning: Coercing text to numeric in J5778 / R5778C10: '6'
## Warning: Coercing text to numeric in K5778 / R5778C11: '3'
## Warning: Coercing text to numeric in L5778 / R5778C12: '2'
## Warning: Coercing text to numeric in M5778 / R5778C13: '4'
## Warning: Coercing text to numeric in E5779 / R5779C5: '18'
## Warning: Coercing text to numeric in F5779 / R5779C6: '3'
## Warning: Coercing text to numeric in H5779 / R5779C8: '2'
## Warning: Coercing text to numeric in J5779 / R5779C10: '6'
## Warning: Coercing text to numeric in K5779 / R5779C11: '3'
## Warning: Coercing text to numeric in L5779 / R5779C12: '1'
## Warning: Coercing text to numeric in M5779 / R5779C13: '7'
## Warning: Coercing text to numeric in E5780 / R5780C5: '4'
## Warning: Coercing text to numeric in F5780 / R5780C6: '3'
## Warning: Coercing text to numeric in H5780 / R5780C8: '1'
## Warning: Coercing text to numeric in J5780 / R5780C10: '6'
## Warning: Coercing text to numeric in K5780 / R5780C11: '2'
## Warning: Coercing text to numeric in L5780 / R5780C12: '1'
## Warning: Coercing text to numeric in M5780 / R5780C13: '3'
## Warning: Coercing text to numeric in E5781 / R5781C5: '1'
## Warning: Coercing text to numeric in F5781 / R5781C6: '2'
## Warning: Coercing text to numeric in H5781 / R5781C8: '1'
## Warning: Coercing text to numeric in J5781 / R5781C10: '6'
## Warning: Coercing text to numeric in K5781 / R5781C11: '3'
## Warning: Coercing text to numeric in L5781 / R5781C12: '2'
## Warning: Coercing text to numeric in M5781 / R5781C13: '7'
## Warning: Coercing text to numeric in E5782 / R5782C5: '5'
## Warning: Coercing text to numeric in F5782 / R5782C6: '3'
## Warning: Coercing text to numeric in H5782 / R5782C8: '2'
## Warning: Coercing text to numeric in J5782 / R5782C10: '6'
## Warning: Coercing text to numeric in K5782 / R5782C11: '4'
## Warning: Coercing text to numeric in L5782 / R5782C12: '1'
## Warning: Coercing text to numeric in M5782 / R5782C13: '0'
## Warning: Coercing text to numeric in E5783 / R5783C5: '3'
## Warning: Coercing text to numeric in F5783 / R5783C6: '3'
## Warning: Coercing text to numeric in H5783 / R5783C8: '1'
## Warning: Coercing text to numeric in J5783 / R5783C10: '6'
## Warning: Coercing text to numeric in K5783 / R5783C11: '3'
## Warning: Coercing text to numeric in L5783 / R5783C12: '1'
## Warning: Coercing text to numeric in M5783 / R5783C13: '0'
## Warning: Coercing text to numeric in E5784 / R5784C5: '7'
## Warning: Coercing text to numeric in F5784 / R5784C6: '2'
## Warning: Coercing text to numeric in H5784 / R5784C8: '1'
## Warning: Coercing text to numeric in J5784 / R5784C10: '6'
## Warning: Coercing text to numeric in K5784 / R5784C11: '2'
## Warning: Coercing text to numeric in L5784 / R5784C12: '1'
## Warning: Coercing text to numeric in M5784 / R5784C13: '0'
## Warning: Coercing text to numeric in E5785 / R5785C5: '4'
## Warning: Coercing text to numeric in F5785 / R5785C6: '3'
## Warning: Coercing text to numeric in H5785 / R5785C8: '2'
## Warning: Coercing text to numeric in J5785 / R5785C10: '6'
## Warning: Coercing text to numeric in K5785 / R5785C11: '3'
## Warning: Coercing text to numeric in L5785 / R5785C12: '1'
## Warning: Coercing text to numeric in M5785 / R5785C13: '0'
## Warning: Coercing text to numeric in E5786 / R5786C5: '5'
## Warning: Coercing text to numeric in F5786 / R5786C6: '2'
## Warning: Coercing text to numeric in H5786 / R5786C8: '1'
## Warning: Coercing text to numeric in J5786 / R5786C10: '6'
## Warning: Coercing text to numeric in K5786 / R5786C11: '2'
## Warning: Coercing text to numeric in L5786 / R5786C12: '1'
## Warning: Coercing text to numeric in M5786 / R5786C13: '0'
## Warning: Coercing text to numeric in E5787 / R5787C5: '2'
## Warning: Coercing text to numeric in F5787 / R5787C6: '3'
## Warning: Coercing text to numeric in H5787 / R5787C8: '3'
## Warning: Coercing text to numeric in J5787 / R5787C10: '6'
## Warning: Coercing text to numeric in K5787 / R5787C11: '4'
## Warning: Coercing text to numeric in L5787 / R5787C12: '1'
## Warning: Coercing text to numeric in M5787 / R5787C13: '0'
## Warning: Coercing text to numeric in E5788 / R5788C5: '10'
## Warning: Coercing text to numeric in F5788 / R5788C6: '3'
## Warning: Coercing text to numeric in H5788 / R5788C8: '1'
## Warning: Coercing text to numeric in J5788 / R5788C10: '6'
## Warning: Coercing text to numeric in K5788 / R5788C11: '4'
## Warning: Coercing text to numeric in L5788 / R5788C12: '1'
## Warning: Coercing text to numeric in M5788 / R5788C13: '0'
## Warning: Coercing text to numeric in E5789 / R5789C5: '3'
## Warning: Coercing text to numeric in F5789 / R5789C6: '3'
## Warning: Coercing text to numeric in H5789 / R5789C8: '1'
## Warning: Coercing text to numeric in J5789 / R5789C10: '6'
## Warning: Coercing text to numeric in K5789 / R5789C11: '2'
## Warning: Coercing text to numeric in L5789 / R5789C12: '1'
## Warning: Coercing text to numeric in M5789 / R5789C13: '7'
## Warning: Coercing text to numeric in E5790 / R5790C5: '0'
## Warning: Coercing text to numeric in F5790 / R5790C6: '0'
## Warning: Coercing text to numeric in H5790 / R5790C8: '1'
## Warning: Coercing text to numeric in J5790 / R5790C10: '6'
## Warning: Coercing text to numeric in K5790 / R5790C11: '4'
## Warning: Coercing text to numeric in L5790 / R5790C12: '0'
## Warning: Coercing text to numeric in M5790 / R5790C13: '0'
## Warning: Coercing text to numeric in E5791 / R5791C5: '20'
## Warning: Coercing text to numeric in F5791 / R5791C6: '3'
## Warning: Coercing text to numeric in H5791 / R5791C8: '1'
## Warning: Coercing text to numeric in J5791 / R5791C10: '6'
## Warning: Coercing text to numeric in K5791 / R5791C11: '3'
## Warning: Coercing text to numeric in L5791 / R5791C12: '1'
## Warning: Coercing text to numeric in M5791 / R5791C13: '0'
## Warning: Coercing text to numeric in E5792 / R5792C5: '9'
## Warning: Coercing text to numeric in F5792 / R5792C6: '2'
## Warning: Coercing text to numeric in H5792 / R5792C8: '1'
## Warning: Coercing text to numeric in J5792 / R5792C10: '6'
## Warning: Coercing text to numeric in K5792 / R5792C11: '2'
## Warning: Coercing text to numeric in L5792 / R5792C12: '1'
## Warning: Coercing text to numeric in M5792 / R5792C13: '0'
## Warning: Coercing text to numeric in E5793 / R5793C5: '4'
## Warning: Coercing text to numeric in F5793 / R5793C6: '3'
## Warning: Coercing text to numeric in H5793 / R5793C8: '1'
## Warning: Coercing text to numeric in J5793 / R5793C10: '6'
## Warning: Coercing text to numeric in K5793 / R5793C11: '4'
## Warning: Coercing text to numeric in L5793 / R5793C12: '1'
## Warning: Coercing text to numeric in M5793 / R5793C13: '0'
## Warning: Coercing text to numeric in E5794 / R5794C5: '8'
## Warning: Coercing text to numeric in F5794 / R5794C6: '2'
## Warning: Coercing text to numeric in H5794 / R5794C8: '1'
## Warning: Coercing text to numeric in J5794 / R5794C10: '6'
## Warning: Coercing text to numeric in K5794 / R5794C11: '3'
## Warning: Coercing text to numeric in L5794 / R5794C12: '1'
## Warning: Coercing text to numeric in M5794 / R5794C13: '0'
## Warning: Coercing text to numeric in E5795 / R5795C5: '1'
## Warning: Coercing text to numeric in F5795 / R5795C6: '2'
## Warning: Coercing text to numeric in H5795 / R5795C8: '1'
## Warning: Coercing text to numeric in J5795 / R5795C10: '6'
## Warning: Coercing text to numeric in K5795 / R5795C11: '3'
## Warning: Coercing text to numeric in L5795 / R5795C12: '1'
## Warning: Coercing text to numeric in M5795 / R5795C13: '0'
## Warning: Coercing text to numeric in E5796 / R5796C5: '7'
## Warning: Coercing text to numeric in F5796 / R5796C6: '2'
## Warning: Coercing text to numeric in H5796 / R5796C8: '1'
## Warning: Coercing text to numeric in J5796 / R5796C10: '6'
## Warning: Coercing text to numeric in K5796 / R5796C11: '4'
## Warning: Coercing text to numeric in L5796 / R5796C12: '1'
## Warning: Coercing text to numeric in M5796 / R5796C13: '0'
## Warning: Coercing text to numeric in E5797 / R5797C5: '2'
## Warning: Coercing text to numeric in F5797 / R5797C6: '2'
## Warning: Coercing text to numeric in H5797 / R5797C8: '1'
## Warning: Coercing text to numeric in J5797 / R5797C10: '6'
## Warning: Coercing text to numeric in K5797 / R5797C11: '4'
## Warning: Coercing text to numeric in L5797 / R5797C12: '1'
## Warning: Coercing text to numeric in M5797 / R5797C13: '0'
## Warning: Coercing text to numeric in E5798 / R5798C5: '11'
## Warning: Coercing text to numeric in F5798 / R5798C6: '3'
## Warning: Coercing text to numeric in H5798 / R5798C8: '1'
## Warning: Coercing text to numeric in J5798 / R5798C10: '6'
## Warning: Coercing text to numeric in K5798 / R5798C11: '4'
## Warning: Coercing text to numeric in L5798 / R5798C12: '1'
## Warning: Coercing text to numeric in M5798 / R5798C13: '0'
## Warning: Coercing text to numeric in E5799 / R5799C5: '4'
## Warning: Coercing text to numeric in F5799 / R5799C6: '3'
## Warning: Coercing text to numeric in H5799 / R5799C8: '2'
## Warning: Coercing text to numeric in J5799 / R5799C10: '6'
## Warning: Coercing text to numeric in K5799 / R5799C11: '4'
## Warning: Coercing text to numeric in L5799 / R5799C12: '2'
## Warning: Coercing text to numeric in M5799 / R5799C13: '0'
## Warning: Coercing text to numeric in E5800 / R5800C5: '6'
## Warning: Coercing text to numeric in F5800 / R5800C6: '3'
## Warning: Coercing text to numeric in H5800 / R5800C8: '2'
## Warning: Coercing text to numeric in J5800 / R5800C10: '6'
## Warning: Coercing text to numeric in K5800 / R5800C11: '2'
## Warning: Coercing text to numeric in L5800 / R5800C12: '1'
## Warning: Coercing text to numeric in M5800 / R5800C13: '3'
## Warning: Coercing text to numeric in E5801 / R5801C5: '4'
## Warning: Coercing text to numeric in F5801 / R5801C6: '2'
## Warning: Coercing text to numeric in H5801 / R5801C8: '1'
## Warning: Coercing text to numeric in J5801 / R5801C10: '6'
## Warning: Coercing text to numeric in K5801 / R5801C11: '2'
## Warning: Coercing text to numeric in L5801 / R5801C12: '1'
## Warning: Coercing text to numeric in M5801 / R5801C13: '0'
## Warning: Coercing text to numeric in E5802 / R5802C5: '13'
## Warning: Coercing text to numeric in F5802 / R5802C6: '3'
## Warning: Coercing text to numeric in H5802 / R5802C8: '1'
## Warning: Coercing text to numeric in J5802 / R5802C10: '6'
## Warning: Coercing text to numeric in K5802 / R5802C11: '2'
## Warning: Coercing text to numeric in L5802 / R5802C12: '1'
## Warning: Coercing text to numeric in M5802 / R5802C13: '0'
## Warning: Coercing text to numeric in E5803 / R5803C5: '3'
## Warning: Coercing text to numeric in F5803 / R5803C6: '3'
## Warning: Coercing text to numeric in H5803 / R5803C8: '1'
## Warning: Coercing text to numeric in J5803 / R5803C10: '6'
## Warning: Coercing text to numeric in K5803 / R5803C11: '2'
## Warning: Coercing text to numeric in L5803 / R5803C12: '1'
## Warning: Coercing text to numeric in M5803 / R5803C13: '4'
## Warning: Coercing text to numeric in E5804 / R5804C5: '6'
## Warning: Coercing text to numeric in F5804 / R5804C6: '3'
## Warning: Coercing text to numeric in H5804 / R5804C8: '2'
## Warning: Coercing text to numeric in J5804 / R5804C10: '6'
## Warning: Coercing text to numeric in K5804 / R5804C11: '2'
## Warning: Coercing text to numeric in L5804 / R5804C12: '1'
## Warning: Coercing text to numeric in M5804 / R5804C13: '4'
## Warning: Coercing text to numeric in E5805 / R5805C5: '2'
## Warning: Coercing text to numeric in F5805 / R5805C6: '3'
## Warning: Coercing text to numeric in H5805 / R5805C8: '2'
## Warning: Coercing text to numeric in J5805 / R5805C10: '6'
## Warning: Coercing text to numeric in K5805 / R5805C11: '2'
## Warning: Coercing text to numeric in L5805 / R5805C12: '1'
## Warning: Coercing text to numeric in M5805 / R5805C13: '4'
## Warning: Coercing text to numeric in E5806 / R5806C5: '6'
## Warning: Coercing text to numeric in F5806 / R5806C6: '3'
## Warning: Coercing text to numeric in H5806 / R5806C8: '1'
## Warning: Coercing text to numeric in J5806 / R5806C10: '6'
## Warning: Coercing text to numeric in K5806 / R5806C11: '4'
## Warning: Coercing text to numeric in L5806 / R5806C12: '1'
## Warning: Coercing text to numeric in M5806 / R5806C13: '0'
## Warning: Coercing text to numeric in E5807 / R5807C5: '4'
## Warning: Coercing text to numeric in F5807 / R5807C6: '3'
## Warning: Coercing text to numeric in H5807 / R5807C8: '1'
## Warning: Coercing text to numeric in J5807 / R5807C10: '5'
## Warning: Coercing text to numeric in K5807 / R5807C11: '4'
## Warning: Coercing text to numeric in L5807 / R5807C12: '1'
## Warning: Coercing text to numeric in M5807 / R5807C13: '0'
## Warning: Coercing text to numeric in E5808 / R5808C5: '1'
## Warning: Coercing text to numeric in F5808 / R5808C6: '2'
## Warning: Coercing text to numeric in H5808 / R5808C8: '1'
## Warning: Coercing text to numeric in J5808 / R5808C10: '6'
## Warning: Coercing text to numeric in K5808 / R5808C11: '4'
## Warning: Coercing text to numeric in L5808 / R5808C12: '1'
## Warning: Coercing text to numeric in M5808 / R5808C13: '0'
## Warning: Coercing text to numeric in E5809 / R5809C5: '5'
## Warning: Coercing text to numeric in F5809 / R5809C6: '3'
## Warning: Coercing text to numeric in H5809 / R5809C8: '1'
## Warning: Coercing text to numeric in J5809 / R5809C10: '6'
## Warning: Coercing text to numeric in K5809 / R5809C11: '4'
## Warning: Coercing text to numeric in L5809 / R5809C12: '1'
## Warning: Coercing text to numeric in M5809 / R5809C13: '0'
## Warning: Coercing text to numeric in E5810 / R5810C5: '5'
## Warning: Coercing text to numeric in F5810 / R5810C6: '2'
## Warning: Coercing text to numeric in H5810 / R5810C8: '1'
## Warning: Coercing text to numeric in J5810 / R5810C10: '6'
## Warning: Coercing text to numeric in K5810 / R5810C11: '4'
## Warning: Coercing text to numeric in L5810 / R5810C12: '1'
## Warning: Coercing text to numeric in M5810 / R5810C13: '0'
## Warning: Coercing text to numeric in E5811 / R5811C5: '1'
## Warning: Coercing text to numeric in F5811 / R5811C6: '2'
## Warning: Coercing text to numeric in H5811 / R5811C8: '1'
## Warning: Coercing text to numeric in J5811 / R5811C10: '6'
## Warning: Coercing text to numeric in K5811 / R5811C11: '4'
## Warning: Coercing text to numeric in L5811 / R5811C12: '1'
## Warning: Coercing text to numeric in M5811 / R5811C13: '0'
## Warning: Coercing text to numeric in E5812 / R5812C5: '2'
## Warning: Coercing text to numeric in F5812 / R5812C6: '3'
## Warning: Coercing text to numeric in H5812 / R5812C8: '1'
## Warning: Coercing text to numeric in J5812 / R5812C10: '6'
## Warning: Coercing text to numeric in K5812 / R5812C11: '4'
## Warning: Coercing text to numeric in L5812 / R5812C12: '1'
## Warning: Coercing text to numeric in M5812 / R5812C13: '0'
## Warning: Coercing text to numeric in E5813 / R5813C5: '1'
## Warning: Coercing text to numeric in F5813 / R5813C6: '2'
## Warning: Coercing text to numeric in H5813 / R5813C8: '1'
## Warning: Coercing text to numeric in J5813 / R5813C10: '6'
## Warning: Coercing text to numeric in K5813 / R5813C11: '4'
## Warning: Coercing text to numeric in L5813 / R5813C12: '1'
## Warning: Coercing text to numeric in M5813 / R5813C13: '0'
## Warning: Coercing text to numeric in E5814 / R5814C5: '6'
## Warning: Coercing text to numeric in F5814 / R5814C6: '2'
## Warning: Coercing text to numeric in H5814 / R5814C8: '1'
## Warning: Coercing text to numeric in J5814 / R5814C10: '6'
## Warning: Coercing text to numeric in K5814 / R5814C11: '4'
## Warning: Coercing text to numeric in L5814 / R5814C12: '1'
## Warning: Coercing text to numeric in M5814 / R5814C13: '0'
## Warning: Coercing text to numeric in E5815 / R5815C5: '2'
## Warning: Coercing text to numeric in F5815 / R5815C6: '3'
## Warning: Coercing text to numeric in H5815 / R5815C8: '1'
## Warning: Coercing text to numeric in J5815 / R5815C10: '6'
## Warning: Coercing text to numeric in K5815 / R5815C11: '4'
## Warning: Coercing text to numeric in L5815 / R5815C12: '1'
## Warning: Coercing text to numeric in M5815 / R5815C13: '0'
## Warning: Coercing text to numeric in E5816 / R5816C5: '5'
## Warning: Coercing text to numeric in F5816 / R5816C6: '3'
## Warning: Coercing text to numeric in H5816 / R5816C8: '1'
## Warning: Coercing text to numeric in J5816 / R5816C10: '6'
## Warning: Coercing text to numeric in K5816 / R5816C11: '4'
## Warning: Coercing text to numeric in L5816 / R5816C12: '1'
## Warning: Coercing text to numeric in M5816 / R5816C13: '7'
## Warning: Coercing text to numeric in E5817 / R5817C5: '5'
## Warning: Coercing text to numeric in F5817 / R5817C6: '3'
## Warning: Coercing text to numeric in H5817 / R5817C8: '1'
## Warning: Coercing text to numeric in J5817 / R5817C10: '6'
## Warning: Coercing text to numeric in K5817 / R5817C11: '3'
## Warning: Coercing text to numeric in L5817 / R5817C12: '1'
## Warning: Coercing text to numeric in M5817 / R5817C13: '0'
## Warning: Coercing text to numeric in E5818 / R5818C5: '2'
## Warning: Coercing text to numeric in F5818 / R5818C6: '3'
## Warning: Coercing text to numeric in H5818 / R5818C8: '3'
## Warning: Coercing text to numeric in J5818 / R5818C10: '6'
## Warning: Coercing text to numeric in K5818 / R5818C11: '4'
## Warning: Coercing text to numeric in L5818 / R5818C12: '1'
## Warning: Coercing text to numeric in M5818 / R5818C13: '0'
## Warning: Coercing text to numeric in E5819 / R5819C5: '3'
## Warning: Coercing text to numeric in F5819 / R5819C6: '3'
## Warning: Coercing text to numeric in H5819 / R5819C8: '2'
## Warning: Coercing text to numeric in J5819 / R5819C10: '6'
## Warning: Coercing text to numeric in K5819 / R5819C11: '4'
## Warning: Coercing text to numeric in L5819 / R5819C12: '1'
## Warning: Coercing text to numeric in M5819 / R5819C13: '0'
## Warning: Coercing text to numeric in E5820 / R5820C5: '3'
## Warning: Coercing text to numeric in F5820 / R5820C6: '2'
## Warning: Coercing text to numeric in H5820 / R5820C8: '1'
## Warning: Coercing text to numeric in J5820 / R5820C10: '6'
## Warning: Coercing text to numeric in K5820 / R5820C11: '3'
## Warning: Coercing text to numeric in L5820 / R5820C12: '1'
## Warning: Coercing text to numeric in M5820 / R5820C13: '0'
## Warning: Coercing text to numeric in E5821 / R5821C5: '5'
## Warning: Coercing text to numeric in F5821 / R5821C6: '3'
## Warning: Coercing text to numeric in H5821 / R5821C8: '2'
## Warning: Coercing text to numeric in J5821 / R5821C10: '6'
## Warning: Coercing text to numeric in K5821 / R5821C11: '4'
## Warning: Coercing text to numeric in L5821 / R5821C12: '1'
## Warning: Coercing text to numeric in M5821 / R5821C13: '0'
## Warning: Coercing text to numeric in E5822 / R5822C5: '7'
## Warning: Coercing text to numeric in F5822 / R5822C6: '3'
## Warning: Coercing text to numeric in H5822 / R5822C8: '3'
## Warning: Coercing text to numeric in J5822 / R5822C10: '6'
## Warning: Coercing text to numeric in K5822 / R5822C11: '4'
## Warning: Coercing text to numeric in L5822 / R5822C12: '1'
## Warning: Coercing text to numeric in M5822 / R5822C13: '0'
## Warning: Coercing text to numeric in E5823 / R5823C5: '5'
## Warning: Coercing text to numeric in F5823 / R5823C6: '2'
## Warning: Coercing text to numeric in H5823 / R5823C8: '1'
## Warning: Coercing text to numeric in J5823 / R5823C10: '6'
## Warning: Coercing text to numeric in K5823 / R5823C11: '2'
## Warning: Coercing text to numeric in L5823 / R5823C12: '1'
## Warning: Coercing text to numeric in M5823 / R5823C13: '0'
## Warning: Coercing text to numeric in E5824 / R5824C5: '3'
## Warning: Coercing text to numeric in F5824 / R5824C6: '3'
## Warning: Coercing text to numeric in H5824 / R5824C8: '1'
## Warning: Coercing text to numeric in J5824 / R5824C10: '6'
## Warning: Coercing text to numeric in K5824 / R5824C11: '4'
## Warning: Coercing text to numeric in L5824 / R5824C12: '1'
## Warning: Coercing text to numeric in M5824 / R5824C13: '0'
## Warning: Coercing text to numeric in E5825 / R5825C5: '10'
## Warning: Coercing text to numeric in F5825 / R5825C6: '2'
## Warning: Coercing text to numeric in H5825 / R5825C8: '1'
## Warning: Coercing text to numeric in J5825 / R5825C10: '6'
## Warning: Coercing text to numeric in K5825 / R5825C11: '4'
## Warning: Coercing text to numeric in L5825 / R5825C12: '1'
## Warning: Coercing text to numeric in M5825 / R5825C13: '0'
## Warning: Coercing text to numeric in E5826 / R5826C5: '7'
## Warning: Coercing text to numeric in F5826 / R5826C6: '3'
## Warning: Coercing text to numeric in H5826 / R5826C8: '1'
## Warning: Coercing text to numeric in J5826 / R5826C10: '6'
## Warning: Coercing text to numeric in K5826 / R5826C11: '4'
## Warning: Coercing text to numeric in L5826 / R5826C12: '1'
## Warning: Coercing text to numeric in M5826 / R5826C13: '0'
## Warning: Coercing text to numeric in E5827 / R5827C5: '5'
## Warning: Coercing text to numeric in F5827 / R5827C6: '3'
## Warning: Coercing text to numeric in H5827 / R5827C8: '1'
## Warning: Coercing text to numeric in J5827 / R5827C10: '6'
## Warning: Coercing text to numeric in K5827 / R5827C11: '4'
## Warning: Coercing text to numeric in L5827 / R5827C12: '1'
## Warning: Coercing text to numeric in M5827 / R5827C13: '0'
## Warning: Coercing text to numeric in E5828 / R5828C5: '4'
## Warning: Coercing text to numeric in F5828 / R5828C6: '3'
## Warning: Coercing text to numeric in H5828 / R5828C8: '2'
## Warning: Coercing text to numeric in J5828 / R5828C10: '6'
## Warning: Coercing text to numeric in K5828 / R5828C11: '4'
## Warning: Coercing text to numeric in L5828 / R5828C12: '1'
## Warning: Coercing text to numeric in M5828 / R5828C13: '0'
## Warning: Coercing text to numeric in E5829 / R5829C5: '2'
## Warning: Coercing text to numeric in F5829 / R5829C6: '2'
## Warning: Coercing text to numeric in H5829 / R5829C8: '3'
## Warning: Coercing text to numeric in J5829 / R5829C10: '6'
## Warning: Coercing text to numeric in K5829 / R5829C11: '2'
## Warning: Coercing text to numeric in L5829 / R5829C12: '1'
## Warning: Coercing text to numeric in M5829 / R5829C13: '0'
## Warning: Coercing text to numeric in E5830 / R5830C5: '22'
## Warning: Coercing text to numeric in F5830 / R5830C6: '3'
## Warning: Coercing text to numeric in H5830 / R5830C8: '1'
## Warning: Coercing text to numeric in J5830 / R5830C10: '6'
## Warning: Coercing text to numeric in K5830 / R5830C11: '4'
## Warning: Coercing text to numeric in L5830 / R5830C12: '1'
## Warning: Coercing text to numeric in M5830 / R5830C13: '0'
## Warning: Coercing text to numeric in E5831 / R5831C5: '5'
## Warning: Coercing text to numeric in F5831 / R5831C6: '3'
## Warning: Coercing text to numeric in H5831 / R5831C8: '1'
## Warning: Coercing text to numeric in J5831 / R5831C10: '6'
## Warning: Coercing text to numeric in K5831 / R5831C11: '4'
## Warning: Coercing text to numeric in L5831 / R5831C12: '1'
## Warning: Coercing text to numeric in M5831 / R5831C13: '0'
## Warning: Coercing text to numeric in E5832 / R5832C5: '4'
## Warning: Coercing text to numeric in F5832 / R5832C6: '3'
## Warning: Coercing text to numeric in H5832 / R5832C8: '1'
## Warning: Coercing text to numeric in J5832 / R5832C10: '6'
## Warning: Coercing text to numeric in K5832 / R5832C11: '4'
## Warning: Coercing text to numeric in L5832 / R5832C12: '1'
## Warning: Coercing text to numeric in M5832 / R5832C13: '0'
## Warning: Coercing text to numeric in E5833 / R5833C5: '4'
## Warning: Coercing text to numeric in F5833 / R5833C6: '2'
## Warning: Coercing text to numeric in H5833 / R5833C8: '1'
## Warning: Coercing text to numeric in J5833 / R5833C10: '6'
## Warning: Coercing text to numeric in K5833 / R5833C11: '4'
## Warning: Coercing text to numeric in L5833 / R5833C12: '1'
## Warning: Coercing text to numeric in M5833 / R5833C13: '4'
## Warning: Coercing text to numeric in E5834 / R5834C5: '2'
## Warning: Coercing text to numeric in F5834 / R5834C6: '2'
## Warning: Coercing text to numeric in H5834 / R5834C8: '1'
## Warning: Coercing text to numeric in J5834 / R5834C10: '6'
## Warning: Coercing text to numeric in K5834 / R5834C11: '4'
## Warning: Coercing text to numeric in L5834 / R5834C12: '1'
## Warning: Coercing text to numeric in M5834 / R5834C13: '4'
## Warning: Coercing text to numeric in E5835 / R5835C5: '6'
## Warning: Coercing text to numeric in F5835 / R5835C6: '2'
## Warning: Coercing text to numeric in H5835 / R5835C8: '1'
## Warning: Coercing text to numeric in J5835 / R5835C10: '6'
## Warning: Coercing text to numeric in K5835 / R5835C11: '4'
## Warning: Coercing text to numeric in L5835 / R5835C12: '1'
## Warning: Coercing text to numeric in M5835 / R5835C13: '0'
## Warning: Coercing text to numeric in E5836 / R5836C5: '6'
## Warning: Coercing text to numeric in F5836 / R5836C6: '2'
## Warning: Coercing text to numeric in H5836 / R5836C8: '1'
## Warning: Coercing text to numeric in J5836 / R5836C10: '6'
## Warning: Coercing text to numeric in K5836 / R5836C11: '4'
## Warning: Coercing text to numeric in L5836 / R5836C12: '1'
## Warning: Coercing text to numeric in M5836 / R5836C13: '0'
## Warning: Coercing text to numeric in E5837 / R5837C5: '20'
## Warning: Coercing text to numeric in F5837 / R5837C6: '3'
## Warning: Coercing text to numeric in H5837 / R5837C8: '1'
## Warning: Coercing text to numeric in J5837 / R5837C10: '6'
## Warning: Coercing text to numeric in K5837 / R5837C11: '3'
## Warning: Coercing text to numeric in L5837 / R5837C12: '1'
## Warning: Coercing text to numeric in M5837 / R5837C13: '7'
## Warning: Coercing text to numeric in E5838 / R5838C5: '3'
## Warning: Coercing text to numeric in F5838 / R5838C6: '2'
## Warning: Coercing text to numeric in H5838 / R5838C8: '1'
## Warning: Coercing text to numeric in J5838 / R5838C10: '6'
## Warning: Coercing text to numeric in K5838 / R5838C11: '2'
## Warning: Coercing text to numeric in L5838 / R5838C12: '1'
## Warning: Coercing text to numeric in M5838 / R5838C13: '0'
## Warning: Coercing text to numeric in E5839 / R5839C5: '3'
## Warning: Coercing text to numeric in F5839 / R5839C6: '2'
## Warning: Coercing text to numeric in H5839 / R5839C8: '3'
## Warning: Coercing text to numeric in J5839 / R5839C10: '6'
## Warning: Coercing text to numeric in K5839 / R5839C11: '4'
## Warning: Coercing text to numeric in L5839 / R5839C12: '1'
## Warning: Coercing text to numeric in M5839 / R5839C13: '0'
## Warning: Coercing text to numeric in E5840 / R5840C5: '3'
## Warning: Coercing text to numeric in F5840 / R5840C6: '3'
## Warning: Coercing text to numeric in H5840 / R5840C8: '1'
## Warning: Coercing text to numeric in J5840 / R5840C10: '6'
## Warning: Coercing text to numeric in K5840 / R5840C11: '3'
## Warning: Coercing text to numeric in L5840 / R5840C12: '1'
## Warning: Coercing text to numeric in M5840 / R5840C13: '4'
## Warning: Coercing text to numeric in E5841 / R5841C5: '1'
## Warning: Coercing text to numeric in F5841 / R5841C6: '2'
## Warning: Coercing text to numeric in H5841 / R5841C8: '1'
## Warning: Coercing text to numeric in J5841 / R5841C10: '6'
## Warning: Coercing text to numeric in K5841 / R5841C11: '4'
## Warning: Coercing text to numeric in L5841 / R5841C12: '1'
## Warning: Coercing text to numeric in M5841 / R5841C13: '3'
## Warning: Coercing text to numeric in E5842 / R5842C5: '6'
## Warning: Coercing text to numeric in F5842 / R5842C6: '3'
## Warning: Coercing text to numeric in H5842 / R5842C8: '1'
## Warning: Coercing text to numeric in J5842 / R5842C10: '6'
## Warning: Coercing text to numeric in K5842 / R5842C11: '4'
## Warning: Coercing text to numeric in L5842 / R5842C12: '1'
## Warning: Coercing text to numeric in M5842 / R5842C13: '0'
## Warning: Coercing text to numeric in E5843 / R5843C5: '29'
## Warning: Coercing text to numeric in F5843 / R5843C6: '3'
## Warning: Coercing text to numeric in H5843 / R5843C8: '1'
## Warning: Coercing text to numeric in J5843 / R5843C10: '6'
## Warning: Coercing text to numeric in K5843 / R5843C11: '4'
## Warning: Coercing text to numeric in L5843 / R5843C12: '1'
## Warning: Coercing text to numeric in M5843 / R5843C13: '4'
## Warning: Coercing text to numeric in E5844 / R5844C5: '12'
## Warning: Coercing text to numeric in F5844 / R5844C6: '3'
## Warning: Coercing text to numeric in H5844 / R5844C8: '1'
## Warning: Coercing text to numeric in J5844 / R5844C10: '6'
## Warning: Coercing text to numeric in K5844 / R5844C11: '4'
## Warning: Coercing text to numeric in L5844 / R5844C12: '1'
## Warning: Coercing text to numeric in M5844 / R5844C13: '0'
## Warning: Coercing text to numeric in E5845 / R5845C5: '0'
## Warning: Coercing text to numeric in F5845 / R5845C6: '0'
## Warning: Coercing text to numeric in H5845 / R5845C8: '2'
## Warning: Coercing text to numeric in J5845 / R5845C10: '6'
## Warning: Coercing text to numeric in K5845 / R5845C11: '4'
## Warning: Coercing text to numeric in L5845 / R5845C12: '0'
## Warning: Coercing text to numeric in M5845 / R5845C13: '0'
## Warning: Coercing text to numeric in E5846 / R5846C5: '9'
## Warning: Coercing text to numeric in F5846 / R5846C6: '2'
## Warning: Coercing text to numeric in H5846 / R5846C8: '1'
## Warning: Coercing text to numeric in J5846 / R5846C10: '6'
## Warning: Coercing text to numeric in K5846 / R5846C11: '4'
## Warning: Coercing text to numeric in L5846 / R5846C12: '1'
## Warning: Coercing text to numeric in M5846 / R5846C13: '0'
## Warning: Coercing text to numeric in E5847 / R5847C5: '10'
## Warning: Coercing text to numeric in F5847 / R5847C6: '2'
## Warning: Coercing text to numeric in H5847 / R5847C8: '3'
## Warning: Coercing text to numeric in J5847 / R5847C10: '6'
## Warning: Coercing text to numeric in K5847 / R5847C11: '4'
## Warning: Coercing text to numeric in L5847 / R5847C12: '1'
## Warning: Coercing text to numeric in M5847 / R5847C13: '0'
## Warning: Coercing text to numeric in E5848 / R5848C5: '5'
## Warning: Coercing text to numeric in F5848 / R5848C6: '3'
## Warning: Coercing text to numeric in H5848 / R5848C8: '1'
## Warning: Coercing text to numeric in J5848 / R5848C10: '5'
## Warning: Coercing text to numeric in K5848 / R5848C11: '3'
## Warning: Coercing text to numeric in L5848 / R5848C12: '1'
## Warning: Coercing text to numeric in M5848 / R5848C13: '4'
## Warning: Coercing text to numeric in E5849 / R5849C5: '11'
## Warning: Coercing text to numeric in F5849 / R5849C6: '2'
## Warning: Coercing text to numeric in H5849 / R5849C8: '1'
## Warning: Coercing text to numeric in J5849 / R5849C10: '6'
## Warning: Coercing text to numeric in K5849 / R5849C11: '4'
## Warning: Coercing text to numeric in L5849 / R5849C12: '1'
## Warning: Coercing text to numeric in M5849 / R5849C13: '0'
## Warning: Coercing text to numeric in E5850 / R5850C5: '4'
## Warning: Coercing text to numeric in F5850 / R5850C6: '3'
## Warning: Coercing text to numeric in H5850 / R5850C8: '2'
## Warning: Coercing text to numeric in J5850 / R5850C10: '6'
## Warning: Coercing text to numeric in K5850 / R5850C11: '4'
## Warning: Coercing text to numeric in L5850 / R5850C12: '1'
## Warning: Coercing text to numeric in M5850 / R5850C13: '7'
## Warning: Coercing text to numeric in E5851 / R5851C5: '1'
## Warning: Coercing text to numeric in F5851 / R5851C6: '2'
## Warning: Coercing text to numeric in H5851 / R5851C8: '3'
## Warning: Coercing text to numeric in J5851 / R5851C10: '6'
## Warning: Coercing text to numeric in K5851 / R5851C11: '2'
## Warning: Coercing text to numeric in L5851 / R5851C12: '1'
## Warning: Coercing text to numeric in M5851 / R5851C13: '4'
## Warning: Coercing text to numeric in E5852 / R5852C5: '2'
## Warning: Coercing text to numeric in F5852 / R5852C6: '2'
## Warning: Coercing text to numeric in H5852 / R5852C8: '1'
## Warning: Coercing text to numeric in J5852 / R5852C10: '6'
## Warning: Coercing text to numeric in K5852 / R5852C11: '4'
## Warning: Coercing text to numeric in L5852 / R5852C12: '1'
## Warning: Coercing text to numeric in M5852 / R5852C13: '0'
## Warning: Coercing text to numeric in E5853 / R5853C5: '11'
## Warning: Coercing text to numeric in F5853 / R5853C6: '2'
## Warning: Coercing text to numeric in H5853 / R5853C8: '1'
## Warning: Coercing text to numeric in J5853 / R5853C10: '6'
## Warning: Coercing text to numeric in K5853 / R5853C11: '4'
## Warning: Coercing text to numeric in L5853 / R5853C12: '1'
## Warning: Coercing text to numeric in M5853 / R5853C13: '0'
## Warning: Coercing text to numeric in E5854 / R5854C5: '3'
## Warning: Coercing text to numeric in F5854 / R5854C6: '3'
## Warning: Coercing text to numeric in H5854 / R5854C8: '1'
## Warning: Coercing text to numeric in J5854 / R5854C10: '5'
## Warning: Coercing text to numeric in K5854 / R5854C11: '4'
## Warning: Coercing text to numeric in L5854 / R5854C12: '1'
## Warning: Coercing text to numeric in M5854 / R5854C13: '7'
## Warning: Coercing text to numeric in E5855 / R5855C5: '14'
## Warning: Coercing text to numeric in F5855 / R5855C6: '3'
## Warning: Coercing text to numeric in H5855 / R5855C8: '2'
## Warning: Coercing text to numeric in J5855 / R5855C10: '6'
## Warning: Coercing text to numeric in K5855 / R5855C11: '4'
## Warning: Coercing text to numeric in L5855 / R5855C12: '1'
## Warning: Coercing text to numeric in M5855 / R5855C13: '0'
## Warning: Coercing text to numeric in E5856 / R5856C5: '7'
## Warning: Coercing text to numeric in F5856 / R5856C6: '2'
## Warning: Coercing text to numeric in H5856 / R5856C8: '1'
## Warning: Coercing text to numeric in J5856 / R5856C10: '6'
## Warning: Coercing text to numeric in K5856 / R5856C11: '3'
## Warning: Coercing text to numeric in L5856 / R5856C12: '1'
## Warning: Coercing text to numeric in M5856 / R5856C13: '0'
## Warning: Coercing text to numeric in E5857 / R5857C5: '6'
## Warning: Coercing text to numeric in F5857 / R5857C6: '2'
## Warning: Coercing text to numeric in H5857 / R5857C8: '3'
## Warning: Coercing text to numeric in J5857 / R5857C10: '6'
## Warning: Coercing text to numeric in K5857 / R5857C11: '4'
## Warning: Coercing text to numeric in L5857 / R5857C12: '1'
## Warning: Coercing text to numeric in M5857 / R5857C13: '0'
## Warning: Coercing text to numeric in E5858 / R5858C5: '3'
## Warning: Coercing text to numeric in F5858 / R5858C6: '2'
## Warning: Coercing text to numeric in H5858 / R5858C8: '1'
## Warning: Coercing text to numeric in J5858 / R5858C10: '6'
## Warning: Coercing text to numeric in K5858 / R5858C11: '4'
## Warning: Coercing text to numeric in L5858 / R5858C12: '1'
## Warning: Coercing text to numeric in M5858 / R5858C13: '0'
## Warning: Coercing text to numeric in E5859 / R5859C5: '2'
## Warning: Coercing text to numeric in F5859 / R5859C6: '2'
## Warning: Coercing text to numeric in H5859 / R5859C8: '1'
## Warning: Coercing text to numeric in J5859 / R5859C10: '6'
## Warning: Coercing text to numeric in K5859 / R5859C11: '4'
## Warning: Coercing text to numeric in L5859 / R5859C12: '1'
## Warning: Coercing text to numeric in M5859 / R5859C13: '7'
## Warning: Coercing text to numeric in E5860 / R5860C5: '4'
## Warning: Coercing text to numeric in F5860 / R5860C6: '2'
## Warning: Coercing text to numeric in H5860 / R5860C8: '2'
## Warning: Coercing text to numeric in J5860 / R5860C10: '6'
## Warning: Coercing text to numeric in K5860 / R5860C11: '4'
## Warning: Coercing text to numeric in L5860 / R5860C12: '1'
## Warning: Coercing text to numeric in M5860 / R5860C13: '0'
## Warning: Coercing text to numeric in E5861 / R5861C5: '7'
## Warning: Coercing text to numeric in F5861 / R5861C6: '2'
## Warning: Coercing text to numeric in H5861 / R5861C8: '1'
## Warning: Coercing text to numeric in J5861 / R5861C10: '6'
## Warning: Coercing text to numeric in K5861 / R5861C11: '4'
## Warning: Coercing text to numeric in L5861 / R5861C12: '1'
## Warning: Coercing text to numeric in M5861 / R5861C13: '0'
## Warning: Coercing text to numeric in E5862 / R5862C5: '2'
## Warning: Coercing text to numeric in F5862 / R5862C6: '2'
## Warning: Coercing text to numeric in H5862 / R5862C8: '1'
## Warning: Coercing text to numeric in J5862 / R5862C10: '6'
## Warning: Coercing text to numeric in K5862 / R5862C11: '3'
## Warning: Coercing text to numeric in L5862 / R5862C12: '1'
## Warning: Coercing text to numeric in M5862 / R5862C13: '0'
## Warning: Coercing text to numeric in E5863 / R5863C5: '2'
## Warning: Coercing text to numeric in F5863 / R5863C6: '2'
## Warning: Coercing text to numeric in H5863 / R5863C8: '1'
## Warning: Coercing text to numeric in J5863 / R5863C10: '6'
## Warning: Coercing text to numeric in K5863 / R5863C11: '3'
## Warning: Coercing text to numeric in L5863 / R5863C12: '1'
## Warning: Coercing text to numeric in M5863 / R5863C13: '0'
## Warning: Coercing text to numeric in E5864 / R5864C5: '5'
## Warning: Coercing text to numeric in F5864 / R5864C6: '2'
## Warning: Coercing text to numeric in H5864 / R5864C8: '3'
## Warning: Coercing text to numeric in J5864 / R5864C10: '6'
## Warning: Coercing text to numeric in K5864 / R5864C11: '4'
## Warning: Coercing text to numeric in L5864 / R5864C12: '1'
## Warning: Coercing text to numeric in M5864 / R5864C13: '0'
## Warning: Coercing text to numeric in E5865 / R5865C5: '3'
## Warning: Coercing text to numeric in F5865 / R5865C6: '3'
## Warning: Coercing text to numeric in H5865 / R5865C8: '1'
## Warning: Coercing text to numeric in J5865 / R5865C10: '6'
## Warning: Coercing text to numeric in K5865 / R5865C11: '4'
## Warning: Coercing text to numeric in L5865 / R5865C12: '2'
## Warning: Coercing text to numeric in M5865 / R5865C13: '0'
## Warning: Coercing text to numeric in E5866 / R5866C5: '7'
## Warning: Coercing text to numeric in F5866 / R5866C6: '2'
## Warning: Coercing text to numeric in H5866 / R5866C8: '1'
## Warning: Coercing text to numeric in J5866 / R5866C10: '5'
## Warning: Coercing text to numeric in K5866 / R5866C11: '3'
## Warning: Coercing text to numeric in L5866 / R5866C12: '1'
## Warning: Coercing text to numeric in M5866 / R5866C13: '0'
## Warning: Coercing text to numeric in E5867 / R5867C5: '1'
## Warning: Coercing text to numeric in F5867 / R5867C6: '2'
## Warning: Coercing text to numeric in H5867 / R5867C8: '1'
## Warning: Coercing text to numeric in J5867 / R5867C10: '6'
## Warning: Coercing text to numeric in K5867 / R5867C11: '3'
## Warning: Coercing text to numeric in L5867 / R5867C12: '1'
## Warning: Coercing text to numeric in M5867 / R5867C13: '7'
## Warning: Coercing text to numeric in E5868 / R5868C5: '8'
## Warning: Coercing text to numeric in F5868 / R5868C6: '2'
## Warning: Coercing text to numeric in H5868 / R5868C8: '1'
## Warning: Coercing text to numeric in J5868 / R5868C10: '1'
## Warning: Coercing text to numeric in K5868 / R5868C11: '4'
## Warning: Coercing text to numeric in L5868 / R5868C12: '1'
## Warning: Coercing text to numeric in M5868 / R5868C13: '0'
View(Base_anom)
# =============================================================================
# OBJETIVO 1 - PASO 1: Filtrar casos de interés (sistema clasificado)
# =============================================================================

df_obj1 <- Base_anom %>%
  filter(!is.na(sistema))

cat("Total de casos analizados (Objetivo 1):", nrow(df_obj1), "\n")
## Total de casos analizados (Objetivo 1): 3586
cat("Casos excluidos (sin clasificar):", sum(is.na(Base_anom$sistema)), "\n\n")
## Casos excluidos (sin clasificar): 2281
# Frecuencia y porcentaje por tipo de anomalía (sistema)
tabla_sistema <- df_obj1 %>%
  tabyl(sistema) %>%
  adorn_pct_formatting(digits = 2) %>%
  arrange(desc(n))

print(tabla_sistema)
##               sistema    n percent
##         Osteomuscular 1462  40.77%
##  Sistema circulatorio 1320  36.81%
##      Sistema nervioso  661  18.43%
##                  Oído  139   3.88%
##      Endocrino (no Q)    4   0.11%
# =============================================================================
# OBJETIVO 1 - PASO 2: Distribución anual de casos (2015-2024)
# =============================================================================

# --- 4.1 Frecuencia total de casos por año ---
tabla_anual <- df_obj1 %>%
  tabyl(ano) %>%
  adorn_pct_formatting(digits = 2)

print(tabla_anual)
##   ano   n percent
##  2015 264   7.36%
##  2016 323   9.01%
##  2017 374  10.43%
##  2018 356   9.93%
##  2019 575  16.03%
##  2020 586  16.34%
##  2021 457  12.74%
##  2022 199   5.55%
##  2023 221   6.16%
##  2024 231   6.44%
# --- 4.2 Distribución anual por sistema (tabla cruzada) ---
tabla_anual_sistema <- df_obj1 %>%
  tabyl(ano, sistema) %>%
  adorn_totals(c("row","col")) %>%
  adorn_percentages("row") %>%
  adorn_pct_formatting(digits = 1) %>%
  adorn_ns()

print(tabla_anual_sistema)
##    ano Endocrino (no Q)       Oído Osteomuscular Sistema circulatorio
##   2015         0.0% (0) 4.9%  (13) 32.6%    (86)        39.0%   (103)
##   2016         0.0% (0) 5.6%  (18) 31.0%   (100)        33.4%   (108)
##   2017         0.0% (0) 6.7%  (25) 37.7%   (141)        36.4%   (136)
##   2018         1.1% (4) 3.1%  (11) 46.3%   (165)        31.5%   (112)
##   2019         0.0% (0) 2.3%  (13) 43.8%   (252)        32.7%   (188)
##   2020         0.0% (0) 2.7%  (16) 40.1%   (235)        41.8%   (245)
##   2021         0.0% (0) 3.1%  (14) 37.9%   (173)        42.5%   (194)
##   2022         0.0% (0) 5.5%  (11) 40.2%    (80)        40.7%    (81)
##   2023         0.0% (0) 2.7%   (6) 57.0%   (126)        30.3%    (67)
##   2024         0.0% (0) 5.2%  (12) 45.0%   (104)        37.2%    (86)
##  Total         0.1% (4) 3.9% (139) 40.8% (1,462)        36.8% (1,320)
##  Sistema nervioso          Total
##       23.5%  (62) 100.0%   (264)
##       30.0%  (97) 100.0%   (323)
##       19.3%  (72) 100.0%   (374)
##       18.0%  (64) 100.0%   (356)
##       21.2% (122) 100.0%   (575)
##       15.4%  (90) 100.0%   (586)
##       16.6%  (76) 100.0%   (457)
##       13.6%  (27) 100.0%   (199)
##       10.0%  (22) 100.0%   (221)
##       12.6%  (29) 100.0%   (231)
##       18.4% (661) 100.0% (3,586)
# --- 4.3 Tabla cruzada en valores absolutos (para el gráfico) ---
tabla_anual_abs <- df_obj1 %>%
  count(ano, sistema)

# --- 4.4 Gráfico: evolución anual del total de casos ---
grafico_total <- df_obj1 %>%
  count(ano) %>%
  ggplot(aes(x = factor(ano), y = n)) +
  geom_col(fill = "#4472C4") +
  geom_text(aes(label = n), vjust = -0.5, size = 3.5) +
  labs(title = "Número de casos de anomalías congénitas por año",
       subtitle = "Valle del Cauca, 2015-2024",
       x = "Año", y = "Número de casos") +
  theme_minimal() +
  theme(plot.title = element_text(face = "bold"))

print(grafico_total)

# --- 4.5 Gráfico: evolución anual por sistema (líneas) ---
grafico_sistema <- tabla_anual_abs %>%
  ggplot(aes(x = factor(ano), y = n, color = sistema, group = sistema)) +
  geom_line(linewidth = 1) +
  geom_point(size = 2) +
  labs(title = "Evolución anual de casos por sistema afectado",
       subtitle = "Valle del Cauca, 2015-2024",
       x = "Año", y = "Número de casos", color = "Sistema") +
  theme_minimal() +
  theme(plot.title = element_text(face = "bold"),
        legend.position = "bottom")

print(grafico_sistema)

# --- 4.6 Gráfico: distribución porcentual apilada por año ---
grafico_apilado <- tabla_anual_abs %>%
  group_by(ano) %>%
  mutate(pct = n / sum(n) * 100) %>%
  ggplot(aes(x = factor(ano), y = pct, fill = sistema)) +
  geom_col(position = "stack") +
  labs(title = "Distribución porcentual anual por sistema afectado",
       subtitle = "Valle del Cauca, 2015-2024",
       x = "Año", y = "Porcentaje (%)", fill = "Sistema") +
  theme_minimal() +
  theme(plot.title = element_text(face = "bold"),
        legend.position = "bottom")

print(grafico_apilado)

# =============================================================================
# OBJETIVO 1 - PASO 3: Análisis territorial (municipios del Valle del Cauca)
# =============================================================================

# --- 5.1 Frecuencia y porcentaje de casos por municipio de residencia ---
tabla_municipios <- df_obj1 %>%
  tabyl(nmun_resi) %>%
  adorn_pct_formatting(digits = 2) %>%
  arrange(desc(n))

print(tabla_municipios)
##     nmun_resi    n percent valid_percent
##          CALI 2084  58.11%        58.15%
##       PALMIRA  198   5.52%         5.52%
##       JAMUNDI  174   4.85%         4.85%
##         TULUA  143   3.99%         3.99%
##  BUENAVENTURA  125   3.49%         3.49%
##       CARTAGO  108   3.01%         3.01%
##         YUMBO   99   2.76%         2.76%
##    CANDELARIA   87   2.43%         2.43%
##          BUGA   65   1.81%         1.81%
##       PRADERA   43   1.20%         1.20%
##    EL CERRITO   41   1.14%         1.14%
##       FLORIDA   40   1.12%         1.12%
##         DAGUA   31   0.86%         0.86%
##    ROLDANILLO   30   0.84%         0.84%
##       SEVILLA   30   0.84%         0.84%
##        ZARZAL   29   0.81%         0.81%
##       GUACARI   22   0.61%         0.61%
##      LA UNION   21   0.59%         0.59%
##  BUGALAGRANDE   20   0.56%         0.56%
##  ANSERMANUEVO   19   0.53%         0.53%
##       BOLIVAR   14   0.39%         0.39%
##        DARIEN   12   0.33%         0.33%
##      TRUJILLO   12   0.33%         0.33%
##     ANDALUCIA   11   0.31%         0.31%
##      EL DOVIO   11   0.31%         0.31%
##    CAICEDONIA   10   0.28%         0.28%
##     LA CUMBRE   10   0.28%         0.28%
##      RESTREPO   10   0.28%         0.28%
##       RIOFRIO   10   0.28%         0.28%
##          TORO   10   0.28%         0.28%
##     SAN PEDRO    8   0.22%         0.22%
##        YOTOCO    8   0.22%         0.22%
##       GINEBRA    7   0.20%         0.20%
##        OBANDO    7   0.20%         0.20%
##        ALCALA    6   0.17%         0.17%
##   LA VICTORIA    6   0.17%         0.17%
##     EL AGUILA    5   0.14%         0.14%
##     VERSALLES    5   0.14%         0.14%
##         VIJES    5   0.14%         0.14%
##       ARGELIA    3   0.08%         0.08%
##         ULLOA    3   0.08%         0.08%
##      EL CAIRO    2   0.06%         0.06%
##          <NA>    2   0.06%             -
cat("\nNúmero de municipios con al menos 1 caso:", nrow(tabla_municipios), "\n")
## 
## Número de municipios con al menos 1 caso: 43
# --- 5.2 Top 5 municipios con MAYOR número de casos ---
top5_mayor <- tabla_municipios %>%
  slice_max(n, n = 5)

cat("\n📍 TOP 5 municipios con MAYOR número de casos:\n")
## 
## 📍 TOP 5 municipios con MAYOR número de casos:
print(top5_mayor)
##     nmun_resi    n percent valid_percent
##          CALI 2084  58.11%        58.15%
##       PALMIRA  198   5.52%         5.52%
##       JAMUNDI  174   4.85%         4.85%
##         TULUA  143   3.99%         3.99%
##  BUENAVENTURA  125   3.49%         3.49%
# --- 5.3 Top 5 municipios con MENOR número de casos ---
top5_menor <- tabla_municipios %>%
  slice_min(n, n = 5)

cat("\n📍 TOP 5 municipios con MENOR número de casos:\n")
## 
## 📍 TOP 5 municipios con MENOR número de casos:
print(top5_menor)
##  nmun_resi n percent valid_percent
##   EL CAIRO 2   0.06%         0.06%
##       <NA> 2   0.06%             -
##    ARGELIA 3   0.08%         0.08%
##      ULLOA 3   0.08%         0.08%
##  EL AGUILA 5   0.14%         0.14%
##  VERSALLES 5   0.14%         0.14%
##      VIJES 5   0.14%         0.14%
# --- 5.4 Gráfico: Top 10 municipios con mayor número de casos ---
grafico_top10 <- tabla_municipios %>%
  slice_max(n, n = 10) %>%
  ggplot(aes(x = reorder(nmun_resi, n), y = n)) +
  geom_col(fill = "#4472C4") +
  geom_text(aes(label = n), hjust = -0.2, size = 3.5) +
  coord_flip() +
  labs(title = "Top 10 municipios con mayor número de casos",
       subtitle = "Anomalías congénitas - Valle del Cauca, 2015-2024",
       x = "Municipio de residencia", y = "Número de casos") +
  theme_minimal() +
  theme(plot.title = element_text(face = "bold"))

print(grafico_top10)

# --- 5.5 Tabla cruzada: municipio (top 10) x sistema afectado ---
tabla_mun_sistema <- df_obj1 %>%
  filter(nmun_resi %in% top5_mayor$nmun_resi) %>%
  tabyl(nmun_resi, sistema) %>%
  adorn_totals(c("row","col")) %>%
  adorn_percentages("row") %>%
  adorn_pct_formatting(digits = 1) %>%
  adorn_ns()

print(tabla_mun_sistema)
##     nmun_resi Endocrino (no Q)       Oído Osteomuscular Sistema circulatorio
##  BUENAVENTURA         0.0% (0) 4.0%   (5) 32.0%    (40)        39.2%    (49)
##          CALI         0.2% (4) 3.7%  (77) 41.2%   (859)        37.4%   (780)
##       JAMUNDI         0.0% (0) 2.9%   (5) 47.1%    (82)        29.3%    (51)
##       PALMIRA         0.0% (0) 3.5%   (7) 43.9%    (87)        34.8%    (69)
##         TULUA         0.0% (0) 4.2%   (6) 26.6%    (38)        42.0%    (60)
##         Total         0.1% (4) 3.7% (100) 40.6% (1,106)        37.0% (1,009)
##  Sistema nervioso          Total
##       24.8%  (31) 100.0%   (125)
##       17.5% (364) 100.0% (2,084)
##       20.7%  (36) 100.0%   (174)
##       17.7%  (35) 100.0%   (198)
##       27.3%  (39) 100.0%   (143)
##       18.5% (505) 100.0% (2,724)
# =============================================================================
# OBJETIVO 2 - PASO 1: Variables categóricas (frecuencias y porcentajes)
# =============================================================================

# Usamos df_obj1 (mismo filtro: sistema clasificado, n=3586)

variables_categoricas <- c("sexo", "etnia", "seguridad", "area")

for (var in variables_categoricas) {
  cat("\n=========================================\n")
  cat("Variable:", var, "\n")
  cat("=========================================\n")
  
  tabla <- df_obj1 %>%
    tabyl(.data[[var]]) %>%
    adorn_pct_formatting(digits = 2)
  
  print(tabla)
}
## 
## =========================================
## Variable: sexo 
## =========================================
## Warning: Use of .data in tidyselect expressions was deprecated in tidyselect 1.2.0.
## ℹ Please use `all_of(var)` (or `any_of(var)`) instead of `.data[[var]]`
## This warning is displayed once per session.
## Call `lifecycle::last_lifecycle_warnings()` to see where this warning was
## generated.
##  sexo    n percent
##     F 1623  45.26%
##     I   53   1.48%
##     M 1910  53.26%
## 
## =========================================
## Variable: etnia 
## =========================================
##  etnia    n percent
##      1   10   0.28%
##      2    8   0.22%
##      3    2   0.06%
##      4    1   0.03%
##      5  161   4.49%
##      6 3404  94.92%
## 
## =========================================
## Variable: seguridad 
## =========================================
##  seguridad    n percent
##          C 1900  52.98%
##          E   22   0.61%
##          I  102   2.84%
##          N  145   4.04%
##          P   49   1.37%
##          S 1368  38.15%
## 
## =========================================
## Variable: area 
## =========================================
##  area    n percent
##     1 3336  93.03%
##     2  128   3.57%
##     3  122   3.40%
df_obj1 <- df_obj1 %>%
  mutate(
    # --- edadmadre: conservar solo valores plausibles (9 a 53 años) ---
    edadmadre = ifelse(edadmadre >= 9 & edadmadre <= 53, edadmadre, NA)
  ) %>%
  select(-edad)  # eliminar la variable 'edad' del análisis

# Verificación
cat("Resumen de edadmadre tras la limpieza:\n")
## Resumen de edadmadre tras la limpieza:
summary(df_obj1$edadmadre)
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max.     NAs 
##    9.00   22.00   26.00   26.98   32.00   50.00      12
cat("\nCasos recodificados a NA en edadmadre:", 
    sum(is.na(df_obj1$edadmadre)) - sum(is.na(Base_anom$edadmadre[!is.na(Base_anom$sistema)])), 
    "\n")
## 
## Casos recodificados a NA en edadmadre: 3
# Lista actualizada (sin 'edad')
variables_cuantitativas <- c("edadmadre", "edadges", "pesonacer")
# Variables cuantitativas (solo las que EXISTEN en df_obj1)
variables_cuantitativas <- c("edad", "edadmadre", "edadges", "pesonacer")

# Verificar variables existentes
variables_cuantitativas <- variables_cuantitativas[
  variables_cuantitativas %in% names(df_obj1)
]

cat("Variables encontradas:\n")
## Variables encontradas:
print(variables_cuantitativas)
## [1] "edadmadre" "edadges"   "pesonacer"
# ============================
# 2.1 Histogramas
# ============================
for (var in variables_cuantitativas) {
  
  if (!is.numeric(df_obj1[[var]])) {
    cat("\n", var, "no es numérica -> histograma omitido\n")
    next
  }
  
  g <- df_obj1 %>%
    ggplot(aes(x = .data[[var]])) +
    geom_histogram(bins = 30, fill = "#4472C4", color = "white") +
    labs(
      title = paste("Distribución de", var),
      x = var,
      y = "Frecuencia"
    ) +
    theme_minimal()
  
  print(g)
}
## Warning: Removed 12 rows containing non-finite outside the scale range
## (`stat_bin()`).

## Warning: Removed 222 rows containing non-finite outside the scale range
## (`stat_bin()`).

## Warning: Removed 235 rows containing non-finite outside the scale range
## (`stat_bin()`).

# ============================
# 2.2 Shapiro-Wilk
# ============================
for (var in variables_cuantitativas) {
  
  datos <- df_obj1[[var]]
  
  if (!is.numeric(datos)) {
    cat("\n", var, "NO es numérica. Se omite.\n")
    next
  }
  
  datos <- datos[!is.na(datos)]
  
  if (length(datos) < 3) {
    cat("\n", var, "tiene menos de 3 observaciones. Se omite.\n")
    next
  }
  
  if (length(datos) > 5000) {
    datos <- sample(datos, 5000)
  }
  
  resultado <- shapiro.test(datos)
  
  cat("\n=========================================\n")
  cat("Variable:", var, "\n")
  cat("N =", length(datos), "\n")
  cat("Estadístico W =", round(resultado$statistic, 4), "\n")
  cat("Valor p =", format.pval(resultado$p.value, digits = 4), "\n")
  
  if (resultado$p.value < 0.05) {
    cat("→ Se RECHAZA normalidad (p < 0.05)\n")
  } else {
    cat("→ NO se rechaza normalidad (p >= 0.05)\n")
  }
}
## 
## =========================================
## Variable: edadmadre 
## N = 3574 
## Estadístico W = 0.98 
## Valor p = < 2.2e-16 
## → Se RECHAZA normalidad (p < 0.05)
## 
## =========================================
## Variable: edadges 
## N = 3364 
## Estadístico W = 0.7397 
## Valor p = < 2.2e-16 
## → Se RECHAZA normalidad (p < 0.05)
## 
## =========================================
## Variable: pesonacer 
## N = 3351 
## Estadístico W = 0.9432 
## Valor p = < 2.2e-16 
## → Se RECHAZA normalidad (p < 0.05)
tabla_cuantitativas <- df_obj1 %>%
  summarise(across(all_of(variables_cuantitativas),
                   list(
                     Mediana = ~median(.x, na.rm = TRUE),
                     Q1 = ~quantile(.x, 0.25, na.rm = TRUE),
                     Q3 = ~quantile(.x, 0.75, na.rm = TRUE),
                     RIQ = ~IQR(.x, na.rm = TRUE),
                     Min = ~min(.x, na.rm = TRUE),
                     Max = ~max(.x, na.rm = TRUE),
                     N_validos = ~sum(!is.na(.x))
                   ))) %>%
  pivot_longer(everything(),
               names_to = c("Variable","Estadistico"),
               names_pattern = "(.*)_(.*)") %>%
  pivot_wider(names_from = Estadistico, values_from = value)

print(tabla_cuantitativas)
## # A tibble: 6 × 8
##   Variable    Mediana     Q1    Q3     RIQ   Min   Max validos
##   <chr>         <dbl>  <dbl> <dbl>   <dbl> <dbl> <dbl>   <dbl>
## 1 edadmadre        26   22      32   10        9    50      NA
## 2 edadmadre_N      NA   NA      NA   NA       NA    NA    3574
## 3 edadges          38   35.8    39    3.25    10    45      NA
## 4 edadges_N        NA   NA      NA   NA       NA    NA    3364
## 5 pesonacer      2880 2264    3290 1026       50  6000      NA
## 6 pesonacer_N      NA   NA      NA   NA       NA    NA    3351
# --- 4.1 Variables cuantitativas vs sistema (Kruskal-Wallis, >2 grupos) ---
for (var in variables_cuantitativas) {
  cat("\n=========================================\n")
  cat("Kruskal-Wallis:", var, "según sistema\n")
  cat("=========================================\n")
  
  formula_kw <- as.formula(paste(var, "~ sistema"))
  resultado <- kruskal.test(formula_kw, data = df_obj1)
  print(resultado)
}
## 
## =========================================
## Kruskal-Wallis: edadmadre según sistema
## =========================================
## 
##  Kruskal-Wallis rank sum test
## 
## data:  edadmadre by sistema
## Kruskal-Wallis chi-squared = 38.884, df = 4, p-value = 7.361e-08
## 
## 
## =========================================
## Kruskal-Wallis: edadges según sistema
## =========================================
## 
##  Kruskal-Wallis rank sum test
## 
## data:  edadges by sistema
## Kruskal-Wallis chi-squared = 110.75, df = 4, p-value < 2.2e-16
## 
## 
## =========================================
## Kruskal-Wallis: pesonacer según sistema
## =========================================
## 
##  Kruskal-Wallis rank sum test
## 
## data:  pesonacer by sistema
## Kruskal-Wallis chi-squared = 106.18, df = 4, p-value < 2.2e-16
# --- 4.2 Tabla resumen de mediana/RIQ por sistema (para el informe) ---
tabla_resumen_sistema <- df_obj1 %>%
  group_by(sistema) %>%
  summarise(across(all_of(variables_cuantitativas),
                   ~ paste0(round(median(.x, na.rm = TRUE), 1),
                            " (", round(quantile(.x, 0.25, na.rm = TRUE), 1),
                            "-", round(quantile(.x, 0.75, na.rm = TRUE), 1), ")")))

print(tabla_resumen_sistema)
## # A tibble: 5 × 4
##   sistema              edadmadre    edadges          pesonacer           
##   <chr>                <chr>        <chr>            <chr>               
## 1 Endocrino (no Q)     19 (17-20.2) 38.5 (37.8-39.5) 3230 (3112.5-3367.5)
## 2 Osteomuscular        26 (21-31)   38 (36-39)       2960.5 (2402-3334.5)
## 3 Oído                 26 (22-31)   38 (37-39)       3058 (2592.5-3402.5)
## 4 Sistema circulatorio 27 (23-33)   38 (36-39)       2885 (2300-3270)    
## 5 Sistema nervioso     26 (22-31)   37 (30-39)       2600 (1517.5-3117.5)
for (var in variables_categoricas) {
  cat("\n=========================================\n")
  cat("Test de Fisher (simulado):", var, "vs sistema\n")
  cat("=========================================\n")
  
  tabla_cruzada <- table(df_obj1[[var]], df_obj1$sistema)
  print(tabla_cruzada)
  
  # simulate.p.value = TRUE permite tablas grandes (Fisher exacto puro
  # no es computable con tablas de este tamaño)
  resultado <- fisher.test(tabla_cruzada, simulate.p.value = TRUE, B = 10000)
  print(resultado)
}
## 
## =========================================
## Test de Fisher (simulado): sexo vs sistema
## =========================================
##    
##     Endocrino (no Q) Oído Osteomuscular Sistema circulatorio Sistema nervioso
##   F                2   63           633                  617              308
##   I                0    0            21                   10               22
##   M                2   76           808                  693              331
## 
##  Fisher's Exact Test for Count Data with simulated p-value (based on
##  10000 replicates)
## 
## data:  tabla_cruzada
## p-value = 0.0017
## alternative hypothesis: two.sided
## 
## 
## =========================================
## Test de Fisher (simulado): etnia vs sistema
## =========================================
##    
##     Endocrino (no Q) Oído Osteomuscular Sistema circulatorio Sistema nervioso
##   1                0    0             1                    4                5
##   2                0    1             2                    3                2
##   3                0    0             2                    0                0
##   4                0    0             1                    0                0
##   5                0    5            93                   37               26
##   6                4  133          1363                 1276              628
## 
##  Fisher's Exact Test for Count Data with simulated p-value (based on
##  10000 replicates)
## 
## data:  tabla_cruzada
## p-value = 4e-04
## alternative hypothesis: two.sided
## 
## 
## =========================================
## Test de Fisher (simulado): seguridad vs sistema
## =========================================
##    
##     Endocrino (no Q) Oído Osteomuscular Sistema circulatorio Sistema nervioso
##   C                0   83           706                  799              312
##   E                0    0             7                    5               10
##   I                0    9            37                   35               21
##   N                1    6            76                   25               37
##   P                0    2            20                   20                7
##   S                3   39           616                  436              274
## 
##  Fisher's Exact Test for Count Data with simulated p-value (based on
##  10000 replicates)
## 
## data:  tabla_cruzada
## p-value = 9.999e-05
## alternative hypothesis: two.sided
## 
## 
## =========================================
## Test de Fisher (simulado): area vs sistema
## =========================================
##    
##     Endocrino (no Q) Oído Osteomuscular Sistema circulatorio Sistema nervioso
##   1                4  124          1359                 1243              606
##   2                0   10            41                   46               31
##   3                0    5            62                   31               24
## 
##  Fisher's Exact Test for Count Data with simulated p-value (based on
##  10000 replicates)
## 
## data:  tabla_cruzada
## p-value = 0.0138
## alternative hypothesis: two.sided

##OBJETIVO 3##

df_obj3 <- Base_anom %>%
  filter(
    !is.na(sistema),
    sistema != "Endocrino (no Q)",
    area %in% c(1, 2)   # área urbana: cabecera + centro poblado
  ) %>%
  droplevels() %>%
  mutate(
    puntaje_seguridad = case_when(
      seguridad == "C" ~ 2,
      seguridad == "E" ~ 3,
      seguridad == "I" ~ 0,
      seguridad == "N" ~ 0,
      seguridad == "P" ~ 3,
      seguridad == "S" ~ 1,
      TRUE ~ NA_real_
    ),
    
    puntaje_etnia = case_when(
      as.numeric(etnia) == 6 ~ 0,
      !is.na(etnia) & as.numeric(etnia) != 6 ~ 1,
      TRUE ~ NA_real_
    ),
    
    socioeconomica = puntaje_seguridad + puntaje_etnia,
    
    estrato = case_when(
      socioeconomica %in% c(0, 1) ~ "Bajo",
      socioeconomica == 2 ~ "Medio",
      socioeconomica %in% c(3, 4) ~ "Alto",
      TRUE ~ NA_character_
    ),
    
    estrato = factor(estrato, levels = c("Alto", "Bajo", "Medio"))
  )

cat("N final:", nrow(df_obj3), "\n")
## N final: 3460
table(df_obj3$sistema)
## 
##                 Oído        Osteomuscular Sistema circulatorio 
##                  134                 1400                 1289 
##     Sistema nervioso 
##                  637
table(df_obj3$estrato)
## 
##  Alto  Bajo Medio 
##    98  1408  1954
tabla_estrato_sistema <- table(df_obj3$estrato, df_obj3$sistema)
print(tabla_estrato_sistema)
##        
##         Oído Osteomuscular Sistema circulatorio Sistema nervioso
##   Alto     3            42                   30               23
##   Bajo    47           615                  452              294
##   Medio   84           743                  807              320
chi_result <- chisq.test(tabla_estrato_sistema)
## Warning in stats::chisq.test(x, y, ...): Chi-squared approximation may be
## incorrect
print(chi_result)
## 
##  Pearson's Chi-squared test
## 
## data:  tabla_estrato_sistema
## X-squared = 38.927, df = 6, p-value = 7.396e-07
if (any(chi_result$expected < 5)) {
  cat("\n⚠️ Hay celdas con frecuencia esperada < 5 → se usa Fisher exacto\n")
  fisher_result <- fisher.test(tabla_estrato_sistema, simulate.p.value = TRUE, B = 10000)
  print(fisher_result)
}
## 
## ⚠️ Hay celdas con frecuencia esperada < 5 → se usa Fisher exacto
## 
##  Fisher's Exact Test for Count Data with simulated p-value (based on
##  10000 replicates)
## 
## data:  tabla_estrato_sistema
## p-value = 9.999e-05
## alternative hypothesis: two.sided
sistemas <- unique(df_obj3$sistema)

resultados_or <- data.frame()

for (sis in sistemas) {
  # Variable binaria: ¿es este sistema o no?
  df_temp <- df_obj3 %>%
    mutate(es_sistema = ifelse(sistema == sis, 1, 0))
  
  for (nivel in c("Bajo","Medio")) {
    df_2x2 <- df_temp %>% filter(estrato %in% c("Alto", nivel))
    
    tabla_2x2 <- table(
      factor(df_2x2$estrato, levels = c("Alto", nivel)),
      df_2x2$es_sistema
    )
    
    # OR e IC95% (Wald, vía glm para mayor estabilidad)
    fit <- glm(es_sistema ~ relevel(factor(estrato), ref = "Alto"),
               data = df_2x2, family = binomial)
    
    coef_name <- paste0("relevel(factor(estrato), ref = \"Alto\")", nivel)
    est <- coef(fit)[coef_name]
    se <- summary(fit)$coefficients[coef_name, "Std. Error"]
    
    OR <- exp(est)
    IC_inf <- exp(est - 1.96*se)
    IC_sup <- exp(est + 1.96*se)
    p_val <- summary(fit)$coefficients[coef_name, "Pr(>|z|)"]
    
    resultados_or <- rbind(resultados_or, data.frame(
      sistema = sis, estrato = nivel,
      OR = round(OR,3), IC_inf = round(IC_inf,3), IC_sup = round(IC_sup,3),
      p = round(p_val,4)
    ))
  }
}

print(resultados_or)
##                                                           sistema estrato    OR
## relevel(factor(estrato), ref = "Alto")Bajo   Sistema circulatorio    Bajo 1.072
## relevel(factor(estrato), ref = "Alto")Medio  Sistema circulatorio   Medio 1.595
## relevel(factor(estrato), ref = "Alto")Bajo1         Osteomuscular    Bajo 1.034
## relevel(factor(estrato), ref = "Alto")Medio1        Osteomuscular   Medio 0.818
## relevel(factor(estrato), ref = "Alto")Bajo2      Sistema nervioso    Bajo 0.861
## relevel(factor(estrato), ref = "Alto")Medio2     Sistema nervioso   Medio 0.639
## relevel(factor(estrato), ref = "Alto")Bajo3                  Oído    Bajo 1.094
## relevel(factor(estrato), ref = "Alto")Medio3                 Oído   Medio 1.422
##                                              IC_inf IC_sup      p
## relevel(factor(estrato), ref = "Alto")Bajo    0.688  1.671 0.7598
## relevel(factor(estrato), ref = "Alto")Medio   1.028  2.474 0.0371
## relevel(factor(estrato), ref = "Alto")Bajo1   0.684  1.564 0.8740
## relevel(factor(estrato), ref = "Alto")Medio1  0.543  1.233 0.3375
## relevel(factor(estrato), ref = "Alto")Bajo2   0.530  1.397 0.5436
## relevel(factor(estrato), ref = "Alto")Medio2  0.394  1.034 0.0684
## relevel(factor(estrato), ref = "Alto")Bajo3   0.334  3.579 0.8825
## relevel(factor(estrato), ref = "Alto")Medio3  0.442  4.583 0.5550
df_obj3 <- df_obj3 %>%
  mutate(edadmadre = ifelse(edadmadre >= 9 & edadmadre <= 53, edadmadre, NA))
cat("=========================================\n")
## =========================================
cat("sexo vs sistema\n")
## sexo vs sistema
cat("=========================================\n")
## =========================================
tabla_sexo <- table(df_obj3$sexo, df_obj3$sistema)
print(tabla_sexo)
##    
##     Oído Osteomuscular Sistema circulatorio Sistema nervioso
##   F   61           610                  610              300
##   I    0            19                   10               20
##   M   73           771                  669              317
chi_sexo <- chisq.test(tabla_sexo)
## Warning in stats::chisq.test(x, y, ...): Chi-squared approximation may be
## incorrect
print(chi_sexo)
## 
##  Pearson's Chi-squared test
## 
## data:  tabla_sexo
## X-squared = 24.169, df = 6, p-value = 0.0004861
if (any(chi_sexo$expected < 5)) {
  cat("\n⚠️ Celdas con frecuencia esperada < 5 → se usa Fisher exacto\n")
  fisher_sexo <- fisher.test(tabla_sexo, simulate.p.value = TRUE, B = 10000)
  print(fisher_sexo)
}
## 
## ⚠️ Celdas con frecuencia esperada < 5 → se usa Fisher exacto
## 
##  Fisher's Exact Test for Count Data with simulated p-value (based on
##  10000 replicates)
## 
## data:  tabla_sexo
## p-value = 0.0014
## alternative hypothesis: two.sided
variables_numericas <- c("edadmadre", "edadges", "pesonacer")

cat("\n\n=========================================\n")
## 
## 
## =========================================
cat("Variables numéricas vs sistema (Kruskal-Wallis)\n")
## Variables numéricas vs sistema (Kruskal-Wallis)
cat("=========================================\n")
## =========================================
for (var in variables_numericas) {
  cat("\n---", var, "---\n")
  formula_kw <- as.formula(paste(var, "~ sistema"))
  resultado <- kruskal.test(formula_kw, data = df_obj3)
  print(resultado)
}
## 
## --- edadmadre ---
## 
##  Kruskal-Wallis rank sum test
## 
## data:  edadmadre by sistema
## Kruskal-Wallis chi-squared = 29.499, df = 3, p-value = 1.759e-06
## 
## 
## --- edadges ---
## 
##  Kruskal-Wallis rank sum test
## 
## data:  edadges by sistema
## Kruskal-Wallis chi-squared = 101.2, df = 3, p-value < 2.2e-16
## 
## 
## --- pesonacer ---
## 
##  Kruskal-Wallis rank sum test
## 
## data:  pesonacer by sistema
## Kruskal-Wallis chi-squared = 95.037, df = 3, p-value < 2.2e-16
df_obj3 <- df_obj3 %>%
  mutate(edadmadre = ifelse(edadmadre >= 9 & edadmadre <= 53, edadmadre, NA))
cat("=========================================\n")
## =========================================
cat("sexo vs sistema\n")
## sexo vs sistema
cat("=========================================\n")
## =========================================
tabla_sexo <- table(df_obj3$sexo, df_obj3$sistema)
print(tabla_sexo)
##    
##     Oído Osteomuscular Sistema circulatorio Sistema nervioso
##   F   61           610                  610              300
##   I    0            19                   10               20
##   M   73           771                  669              317
chi_sexo <- chisq.test(tabla_sexo)
## Warning in stats::chisq.test(x, y, ...): Chi-squared approximation may be
## incorrect
print(chi_sexo)
## 
##  Pearson's Chi-squared test
## 
## data:  tabla_sexo
## X-squared = 24.169, df = 6, p-value = 0.0004861
if (any(chi_sexo$expected < 5)) {
  cat("\n⚠️ Celdas con frecuencia esperada < 5 → se usa Fisher exacto\n")
  fisher_sexo <- fisher.test(tabla_sexo, simulate.p.value = TRUE, B = 10000)
  print(fisher_sexo)
}
## 
## ⚠️ Celdas con frecuencia esperada < 5 → se usa Fisher exacto
## 
##  Fisher's Exact Test for Count Data with simulated p-value (based on
##  10000 replicates)
## 
## data:  tabla_sexo
## p-value = 0.0022
## alternative hypothesis: two.sided
variables_numericas <- c("edadmadre", "edadges", "pesonacer")

cat("\n\n=========================================\n")
## 
## 
## =========================================
cat("Variables numéricas vs sistema (Kruskal-Wallis)\n")
## Variables numéricas vs sistema (Kruskal-Wallis)
cat("=========================================\n")
## =========================================
for (var in variables_numericas) {
  cat("\n---", var, "---\n")
  formula_kw <- as.formula(paste(var, "~ sistema"))
  resultado <- kruskal.test(formula_kw, data = df_obj3)
  print(resultado)
}
## 
## --- edadmadre ---
## 
##  Kruskal-Wallis rank sum test
## 
## data:  edadmadre by sistema
## Kruskal-Wallis chi-squared = 29.499, df = 3, p-value = 1.759e-06
## 
## 
## --- edadges ---
## 
##  Kruskal-Wallis rank sum test
## 
## data:  edadges by sistema
## Kruskal-Wallis chi-squared = 101.2, df = 3, p-value < 2.2e-16
## 
## 
## --- pesonacer ---
## 
##  Kruskal-Wallis rank sum test
## 
## data:  pesonacer by sistema
## Kruskal-Wallis chi-squared = 95.037, df = 3, p-value < 2.2e-16
df_obj3 <- df_obj3 %>%
  mutate(edadmadre = ifelse(edadmadre >= 9 & edadmadre <= 53, edadmadre, NA))
cat("=========================================\n")
## =========================================
cat("sexo vs sistema\n")
## sexo vs sistema
cat("=========================================\n")
## =========================================
tabla_sexo <- table(df_obj3$sexo, df_obj3$sistema)
print(tabla_sexo)
##    
##     Oído Osteomuscular Sistema circulatorio Sistema nervioso
##   F   61           610                  610              300
##   I    0            19                   10               20
##   M   73           771                  669              317
chi_sexo <- chisq.test(tabla_sexo)
## Warning in stats::chisq.test(x, y, ...): Chi-squared approximation may be
## incorrect
print(chi_sexo)
## 
##  Pearson's Chi-squared test
## 
## data:  tabla_sexo
## X-squared = 24.169, df = 6, p-value = 0.0004861
if (any(chi_sexo$expected < 5)) {
  cat("\n⚠️ Celdas con frecuencia esperada < 5 → se usa Fisher exacto\n")
  fisher_sexo <- fisher.test(tabla_sexo, simulate.p.value = TRUE, B = 10000)
  print(fisher_sexo)
}
## 
## ⚠️ Celdas con frecuencia esperada < 5 → se usa Fisher exacto
## 
##  Fisher's Exact Test for Count Data with simulated p-value (based on
##  10000 replicates)
## 
## data:  tabla_sexo
## p-value = 0.0016
## alternative hypothesis: two.sided
variables_numericas <- c("edadmadre", "edadges", "pesonacer")

cat("\n\n=========================================\n")
## 
## 
## =========================================
cat("Variables numéricas vs sistema (Kruskal-Wallis)\n")
## Variables numéricas vs sistema (Kruskal-Wallis)
cat("=========================================\n")
## =========================================
for (var in variables_numericas) {
  cat("\n---", var, "---\n")
  formula_kw <- as.formula(paste(var, "~ sistema"))
  resultado <- kruskal.test(formula_kw, data = df_obj3)
  print(resultado)
}
## 
## --- edadmadre ---
## 
##  Kruskal-Wallis rank sum test
## 
## data:  edadmadre by sistema
## Kruskal-Wallis chi-squared = 29.499, df = 3, p-value = 1.759e-06
## 
## 
## --- edadges ---
## 
##  Kruskal-Wallis rank sum test
## 
## data:  edadges by sistema
## Kruskal-Wallis chi-squared = 101.2, df = 3, p-value < 2.2e-16
## 
## 
## --- pesonacer ---
## 
##  Kruskal-Wallis rank sum test
## 
## data:  pesonacer by sistema
## Kruskal-Wallis chi-squared = 95.037, df = 3, p-value < 2.2e-16
resumen_bivariado <- data.frame(
  variable = c("sexo", "edadmadre", "edadges", "pesonacer"),
  p_valor = c(
    fisher_sexo$p.value,
    kruskal.test(edadmadre ~ sistema, data = df_obj3)$p.value,
    kruskal.test(edadges ~ sistema, data = df_obj3)$p.value,
    kruskal.test(pesonacer ~ sistema, data = df_obj3)$p.value
  )
) %>%
  mutate(cumple_p20 = ifelse(p_valor < 0.20, "Sí", "No"))

print(resumen_bivariado)
##    variable      p_valor cumple_p20
## 1      sexo 1.599840e-03         Sí
## 2 edadmadre 1.758995e-06         Sí
## 3   edadges 8.584165e-22         Sí
## 4 pesonacer 1.812459e-20         Sí
df_obj3 <- df_obj3 %>%
  mutate(sistema = relevel(factor(sistema), ref = "Osteomuscular"),
         estrato = relevel(factor(estrato), ref = "Alto"))

# --- Modelo crudo ---
modelo_crudo <- multinom(sistema ~ estrato, data = df_obj3, trace = FALSE)

# --- Bloque 1: + sexo ---
modelo_b1 <- multinom(sistema ~ estrato + sexo, data = df_obj3, trace = FALSE)

# --- Bloque 2: + edadmadre + edadges ---
modelo_b2 <- multinom(sistema ~ estrato + sexo + edadmadre + edadges,
                      data = df_obj3, trace = FALSE)

# --- Bloque 3 (final): + pesonacer ---
modelo_final <- multinom(sistema ~ estrato + sexo + edadmadre + edadges + pesonacer,
                         data = df_obj3, trace = FALSE)

# =============================================================================
# Función para extraer OR + IC95% + p-valor de un modelo multinom
# =============================================================================
extraer_OR <- function(modelo, nombre_modelo) {
  coefs <- summary(modelo)$coefficients
  ee <- summary(modelo)$standard.errors
  
  z <- coefs / ee
  p <- (1 - pnorm(abs(z))) * 2
  
  OR <- exp(coefs)
  IC_inf <- exp(coefs - 1.96*ee)
  IC_sup <- exp(coefs + 1.96*ee)
  
  resultado <- data.frame()
  for (i in 1:nrow(coefs)) {
    for (j in 1:ncol(coefs)) {
      resultado <- rbind(resultado, data.frame(
        modelo = nombre_modelo,
        sistema = rownames(coefs)[i],
        variable = colnames(coefs)[j],
        OR = round(OR[i,j], 3),
        IC_inf = round(IC_inf[i,j], 3),
        IC_sup = round(IC_sup[i,j], 3),
        p = round(p[i,j], 4)
      ))
    }
  }
  return(resultado)
}
res_crudo <- extraer_OR(modelo_crudo, "Crudo")
res_b1    <- extraer_OR(modelo_b1, "Bloque 1")
res_b2    <- extraer_OR(modelo_b2, "Bloque 2")
res_final <- extraer_OR(modelo_final, "Final (Bloque 3)")

tabla_completa <- bind_rows(res_crudo, res_b1, res_b2, res_final)
print(tabla_completa)
##              modelo              sistema     variable     OR IC_inf
## 1             Crudo                 Oído  (Intercept)  0.071  0.022
## 2             Crudo                 Oído  estratoBajo  1.070  0.320
## 3             Crudo                 Oído estratoMedio  1.583  0.480
## 4             Crudo Sistema circulatorio  (Intercept)  0.714  0.447
## 5             Crudo Sistema circulatorio  estratoBajo  1.029  0.634
## 6             Crudo Sistema circulatorio estratoMedio  1.521  0.942
## 7             Crudo     Sistema nervioso  (Intercept)  0.548  0.329
## 8             Crudo     Sistema nervioso  estratoBajo  0.873  0.515
## 9             Crudo     Sistema nervioso estratoMedio  0.787  0.465
## 10         Bloque 1                 Oído  (Intercept)  0.074  0.023
## 11         Bloque 1                 Oído  estratoBajo  1.069  0.319
## 12         Bloque 1                 Oído estratoMedio  1.600  0.486
## 13         Bloque 1                 Oído        sexoI  0.000  0.000
## 14         Bloque 1                 Oído        sexoM  0.943  0.660
## 15         Bloque 1 Sistema circulatorio  (Intercept)  0.772  0.480
## 16         Bloque 1 Sistema circulatorio  estratoBajo  1.033  0.636
## 17         Bloque 1 Sistema circulatorio estratoMedio  1.535  0.951
## 18         Bloque 1 Sistema circulatorio        sexoI  0.486  0.224
## 19         Bloque 1 Sistema circulatorio        sexoM  0.865  0.742
## 20         Bloque 1     Sistema nervioso  (Intercept)  0.592  0.353
## 21         Bloque 1     Sistema nervioso  estratoBajo  0.878  0.518
## 22         Bloque 1     Sistema nervioso estratoMedio  0.780  0.461
## 23         Bloque 1     Sistema nervioso        sexoI  2.198  1.154
## 24         Bloque 1     Sistema nervioso        sexoM  0.837  0.692
## 25         Bloque 2                 Oído  (Intercept)  0.006  0.000
## 26         Bloque 2                 Oído  estratoBajo  0.871  0.257
## 27         Bloque 2                 Oído estratoMedio  1.493  0.451
## 28         Bloque 2                 Oído        sexoI  0.000  0.000
## 29         Bloque 2                 Oído        sexoM  0.896  0.616
## 30         Bloque 2                 Oído    edadmadre  0.996  0.968
## 31         Bloque 2                 Oído      edadges  1.077  1.008
## 32         Bloque 2 Sistema circulatorio  (Intercept)  1.020  0.397
## 33         Bloque 2 Sistema circulatorio  estratoBajo  1.191  0.717
## 34         Bloque 2 Sistema circulatorio estratoMedio  1.681  1.018
## 35         Bloque 2 Sistema circulatorio        sexoI  0.230  0.084
## 36         Bloque 2 Sistema circulatorio        sexoM  0.859  0.733
## 37         Bloque 2 Sistema circulatorio    edadmadre  1.025  1.013
## 38         Bloque 2 Sistema circulatorio      edadges  0.971  0.952
## 39         Bloque 2     Sistema nervioso  (Intercept) 23.391  8.419
## 40         Bloque 2     Sistema nervioso  estratoBajo  1.154  0.641
## 41         Bloque 2     Sistema nervioso estratoMedio  0.947  0.529
## 42         Bloque 2     Sistema nervioso        sexoI  0.390  0.174
## 43         Bloque 2     Sistema nervioso        sexoM  0.812  0.664
## 44         Bloque 2     Sistema nervioso    edadmadre  1.007  0.992
## 45         Bloque 2     Sistema nervioso      edadges  0.892  0.874
## 46 Final (Bloque 3)                 Oído  (Intercept)  0.011  0.011
## 47 Final (Bloque 3)                 Oído  estratoBajo  0.878  0.865
## 48 Final (Bloque 3)                 Oído estratoMedio  1.490  1.466
## 49 Final (Bloque 3)                 Oído        sexoI  0.000  0.000
## 50 Final (Bloque 3)                 Oído        sexoM  0.882  0.877
## 51 Final (Bloque 3)                 Oído    edadmadre  0.995  0.969
## 52 Final (Bloque 3)                 Oído      edadges  1.044  1.010
## 53 Final (Bloque 3)                 Oído    pesonacer  1.000  1.000
## 54 Final (Bloque 3) Sistema circulatorio  (Intercept)  0.694  0.693
## 55 Final (Bloque 3) Sistema circulatorio  estratoBajo  1.191  1.101
## 56 Final (Bloque 3) Sistema circulatorio estratoMedio  1.690  1.558
## 57 Final (Bloque 3) Sistema circulatorio        sexoI  0.237  0.236
## 58 Final (Bloque 3) Sistema circulatorio        sexoM  0.866  0.769
## 59 Final (Bloque 3) Sistema circulatorio    edadmadre  1.026  1.015
## 60 Final (Bloque 3) Sistema circulatorio      edadges  0.990  0.976
## 61 Final (Bloque 3) Sistema circulatorio    pesonacer  1.000  1.000
## 62 Final (Bloque 3)     Sistema nervioso  (Intercept) 12.530 12.509
## 63 Final (Bloque 3)     Sistema nervioso  estratoBajo  1.219  1.103
## 64 Final (Bloque 3)     Sistema nervioso estratoMedio  1.003  0.906
## 65 Final (Bloque 3)     Sistema nervioso        sexoI  0.414  0.414
## 66 Final (Bloque 3)     Sistema nervioso        sexoM  0.815  0.766
## 67 Final (Bloque 3)     Sistema nervioso    edadmadre  1.008  0.994
## 68 Final (Bloque 3)     Sistema nervioso      edadges  0.918  0.903
## 69 Final (Bloque 3)     Sistema nervioso    pesonacer  1.000  1.000
##          IC_sup      p
## 1  2.300000e-01 0.0000
## 2  3.582000e+00 0.9126
## 3  5.217000e+00 0.4506
## 4  1.141000e+00 0.1592
## 5  1.670000e+00 0.9079
## 6  2.455000e+00 0.0863
## 7  9.100000e-01 0.0203
## 8  1.479000e+00 0.6136
## 9  1.330000e+00 0.3700
## 10 2.430000e-01 0.0000
## 11 3.578000e+00 0.9137
## 12 5.273000e+00 0.4398
## 13 1.501858e+58 0.8987
## 14 1.347000e+00 0.7483
## 15 1.242000e+00 0.2866
## 16 1.676000e+00 0.8965
## 17 2.480000e+00 0.0797
## 18 1.057000e+00 0.0687
## 19 1.008000e+00 0.0639
## 20 9.940000e-01 0.0475
## 21 1.489000e+00 0.6293
## 22 1.320000e+00 0.3540
## 23 4.186000e+00 0.0166
## 24 1.013000e+00 0.0671
## 25 9.800000e-02 0.0004
## 26 2.951000e+00 0.8247
## 27 4.944000e+00 0.5121
## 28 0.000000e+00 0.0000
## 29 1.303000e+00 0.5649
## 30 1.025000e+00 0.8040
## 31 1.151000e+00 0.0272
## 32 2.625000e+00 0.9665
## 33 1.979000e+00 0.4999
## 34 2.775000e+00 0.0424
## 35 6.280000e-01 0.0042
## 36 1.007000e+00 0.0604
## 37 1.037000e+00 0.0000
## 38 9.910000e-01 0.0048
## 39 6.498700e+01 0.0000
## 40 2.075000e+00 0.6329
## 41 1.698000e+00 0.8559
## 42 8.750000e-01 0.0224
## 43 9.930000e-01 0.0427
## 44 1.022000e+00 0.3503
## 45 9.110000e-01 0.0000
## 46 1.100000e-02 0.0000
## 47 8.920000e-01 0.0000
## 48 1.514000e+00 0.0000
## 49 0.000000e+00 0.0000
## 50 8.870000e-01 0.0000
## 51 1.022000e+00 0.7310
## 52 1.080000e+00 0.0106
## 53 1.000000e+00 0.2929
## 54 6.960000e-01 0.0000
## 55 1.290000e+00 0.0000
## 56 1.832000e+00 0.0000
## 57 2.370000e-01 0.0000
## 58 9.750000e-01 0.0175
## 59 1.037000e+00 0.0000
## 60 1.004000e+00 0.1445
## 61 1.000000e+00 0.0684
## 62 1.255100e+01 0.0000
## 63 1.348000e+00 0.0001
## 64 1.111000e+00 0.9502
## 65 4.150000e-01 0.0000
## 66 8.680000e-01 0.0000
## 67 1.021000e+00 0.2646
## 68 9.340000e-01 0.0000
## 69 1.000000e+00 0.0161
# --- Comparación de modelos (AIC) ---
data.frame(
  Modelo = c("Crudo","Bloque 1","Bloque 2","Final"),
  AIC = c(AIC(modelo_crudo), AIC(modelo_b1), AIC(modelo_b2), AIC(modelo_final)),
  Deviance = c(modelo_crudo$deviance, modelo_b1$deviance, modelo_b2$deviance, modelo_final$deviance)
)
##     Modelo      AIC Deviance
## 1    Crudo 8085.132 8067.132
## 2 Bloque 1 8071.706 8041.706
## 3 Bloque 2 7372.857 7330.857
## 4    Final 7343.608 7295.608
library(dplyr)
library(nnet)

# Dataset alternativo (mismo filtro de área, SIN excluir Endocrino)
df_obj3_endo <- Base_anom %>%
  filter(
    !is.na(sistema),
    area %in% c(1, 2)
  ) %>%
  droplevels()

# --- Construcción de 'estrato' ---
df_obj3_endo <- df_obj3_endo %>%
  mutate(
    puntaje_seguridad = case_when(
      seguridad == "C" ~ 2,
      seguridad == "E" ~ 3,
      seguridad == "I" ~ 0,
      seguridad == "N" ~ 0,
      seguridad == "P" ~ 3,
      seguridad == "S" ~ 1,
      TRUE ~ NA_real_
    ),
    
    puntaje_etnia = case_when(
      as.numeric(etnia) == 6 ~ 0,
      !is.na(etnia) & as.numeric(etnia) != 6 ~ 1,
      TRUE ~ NA_real_
    ),
    
    socioeconomica = puntaje_seguridad + puntaje_etnia,
    
    estrato = case_when(
      socioeconomica %in% c(0, 1) ~ "Bajo",
      socioeconomica == 2 ~ "Medio",
      socioeconomica %in% c(3, 4) ~ "Alto",
      TRUE ~ NA_character_
    ),
    
    estrato = factor(estrato, levels = c("Alto", "Bajo", "Medio")),
    
    edadmadre = ifelse(
      edadmadre >= 9 & edadmadre <= 53,
      edadmadre,
      NA
    )
  )

cat("N (con Endocrino):", nrow(df_obj3_endo), "\n")
## N (con Endocrino): 3464
table(df_obj3_endo$sistema)
## 
##     Endocrino (no Q)                 Oído        Osteomuscular 
##                    4                  134                 1400 
## Sistema circulatorio     Sistema nervioso 
##                 1289                  637
# Categoría de referencia
df_obj3_endo <- df_obj3_endo %>%
  mutate(
    sistema = relevel(factor(sistema), ref = "Osteomuscular")
  )

# --- Modelos secuenciales ---
modelo_crudo_endo <- multinom(
  sistema ~ estrato,
  data = df_obj3_endo,
  trace = FALSE
)

modelo_b1_endo <- multinom(
  sistema ~ estrato + sexo,
  data = df_obj3_endo,
  trace = FALSE
)

modelo_b2_endo <- multinom(
  sistema ~ estrato + sexo + edadmadre + edadges,
  data = df_obj3_endo,
  trace = FALSE
)

modelo_final_endo <- multinom(
  sistema ~ estrato + sexo + edadmadre + edadges + pesonacer,
  data = df_obj3_endo,
  trace = FALSE
)

# --- Resultados ---
res_crudo_endo <- extraer_OR(modelo_crudo_endo, "Crudo_conEndo")
res_final_endo <- extraer_OR(modelo_final_endo, "Final_conEndo")

print(res_final_endo)
##           modelo              sistema     variable     OR IC_inf IC_sup      p
## 1  Final_conEndo     Endocrino (no Q)  (Intercept)  0.000  0.000  0.000 0.0000
## 2  Final_conEndo     Endocrino (no Q)  estratoBajo 61.357 61.142 61.573 0.0000
## 3  Final_conEndo     Endocrino (no Q) estratoMedio  0.114  0.114  0.114 0.0000
## 4  Final_conEndo     Endocrino (no Q)        sexoI  2.335  2.335  2.335 0.0000
## 5  Final_conEndo     Endocrino (no Q)        sexoM  0.547  0.547  0.548 0.0000
## 6  Final_conEndo     Endocrino (no Q)    edadmadre  0.738  0.678  0.804 0.0000
## 7  Final_conEndo     Endocrino (no Q)      edadges  1.139  1.005  1.292 0.0415
## 8  Final_conEndo     Endocrino (no Q)    pesonacer  1.001  0.999  1.003 0.2420
## 9  Final_conEndo                 Oído  (Intercept)  0.011  0.011  0.011 0.0000
## 10 Final_conEndo                 Oído  estratoBajo  0.880  0.866  0.894 0.0000
## 11 Final_conEndo                 Oído estratoMedio  1.492  1.469  1.516 0.0000
## 12 Final_conEndo                 Oído        sexoI  0.000  0.000  0.000 0.0000
## 13 Final_conEndo                 Oído        sexoM  0.882  0.877  0.887 0.0000
## 14 Final_conEndo                 Oído    edadmadre  0.995  0.969  1.022 0.7314
## 15 Final_conEndo                 Oído      edadges  1.045  1.011  1.080 0.0099
## 16 Final_conEndo                 Oído    pesonacer  1.000  1.000  1.000 0.2988
## 17 Final_conEndo Sistema circulatorio  (Intercept)  0.694  0.693  0.696 0.0000
## 18 Final_conEndo Sistema circulatorio  estratoBajo  1.192  1.101  1.290 0.0000
## 19 Final_conEndo Sistema circulatorio estratoMedio  1.691  1.559  1.833 0.0000
## 20 Final_conEndo Sistema circulatorio        sexoI  0.236  0.236  0.237 0.0000
## 21 Final_conEndo Sistema circulatorio        sexoM  0.866  0.769  0.975 0.0175
## 22 Final_conEndo Sistema circulatorio    edadmadre  1.026  1.015  1.037 0.0000
## 23 Final_conEndo Sistema circulatorio      edadges  0.990  0.976  1.004 0.1444
## 24 Final_conEndo Sistema circulatorio    pesonacer  1.000  1.000  1.000 0.0677
## 25 Final_conEndo     Sistema nervioso  (Intercept) 12.532 12.511 12.553 0.0000
## 26 Final_conEndo     Sistema nervioso  estratoBajo  1.219  1.103  1.348 0.0001
## 27 Final_conEndo     Sistema nervioso estratoMedio  1.003  0.906  1.111 0.9488
## 28 Final_conEndo     Sistema nervioso        sexoI  0.415  0.414  0.415 0.0000
## 29 Final_conEndo     Sistema nervioso        sexoM  0.815  0.766  0.868 0.0000
## 30 Final_conEndo     Sistema nervioso    edadmadre  1.008  0.994  1.021 0.2648
## 31 Final_conEndo     Sistema nervioso      edadges  0.918  0.903  0.934 0.0000
## 32 Final_conEndo     Sistema nervioso    pesonacer  1.000  1.000  1.000 0.0159
# --- Comparación AIC ---
data.frame(
  Modelo = c("Crudo", "Bloque 1", "Bloque 2", "Final"),
  AIC_conEndo = c(
    AIC(modelo_crudo_endo),
    AIC(modelo_b1_endo),
    AIC(modelo_b2_endo),
    AIC(modelo_final_endo)
  )
)
##     Modelo AIC_conEndo
## 1    Crudo    8146.058
## 2 Bloque 1    8136.538
## 3 Bloque 2    7432.524
## 4    Final    7403.968

#OBJETIVO 4#

df_obj4 <- Base_anom %>%
  filter(
    !is.na(sistema),
    sistema != "Endocrino (no Q)"   # mismo criterio que Objetivo 3
  ) %>%
  droplevels() %>%
  mutate(
    area_cat = case_when(
      area %in% c(1, 2) ~ "Urbana",
      area == 3 ~ "Rural",
      TRUE ~ NA_character_
    ),
    
    area_cat = factor(
      area_cat,
      levels = c("Urbana", "Rural")
    ),   # referencia = Urbana
    
    edadmadre = ifelse(
      edadmadre >= 9 & edadmadre <= 53,
      edadmadre,
      NA
    ),
    
    sistema = relevel(
      factor(sistema),
      ref = "Osteomuscular"
    )    # referencia = Osteomuscular
  )

cat("N total:", nrow(df_obj4), "\n")
## N total: 3582
table(df_obj4$area_cat)
## 
## Urbana  Rural 
##   3460    122
table(df_obj4$sistema, df_obj4$area_cat)
##                       
##                        Urbana Rural
##   Osteomuscular          1400    62
##   Oído                    134     5
##   Sistema circulatorio   1289    31
##   Sistema nervioso        637    24
tabla_area_sistema <- table(df_obj4$area_cat, df_obj4$sistema)
print(tabla_area_sistema)
##         
##          Osteomuscular Oído Sistema circulatorio Sistema nervioso
##   Urbana          1400  134                 1289              637
##   Rural             62    5                   31               24
chi_result <- chisq.test(tabla_area_sistema)
## Warning in stats::chisq.test(x, y, ...): Chi-squared approximation may be
## incorrect
print(chi_result)
## 
##  Pearson's Chi-squared test
## 
## data:  tabla_area_sistema
## X-squared = 7.7007, df = 3, p-value = 0.05262
if (any(chi_result$expected < 5)) {
  cat("\n⚠️ Hay celdas con frecuencia esperada < 5 → se usa Fisher exacto\n")
  fisher_result <- fisher.test(tabla_area_sistema, simulate.p.value = TRUE, B = 10000)
  print(fisher_result)
}
## 
## ⚠️ Hay celdas con frecuencia esperada < 5 → se usa Fisher exacto
## 
##  Fisher's Exact Test for Count Data with simulated p-value (based on
##  10000 replicates)
## 
## data:  tabla_area_sistema
## p-value = 0.0431
## alternative hypothesis: two.sided
tabla_area_sistema <- table(df_obj4$area_cat, df_obj4$sistema)
print(tabla_area_sistema)
##         
##          Osteomuscular Oído Sistema circulatorio Sistema nervioso
##   Urbana          1400  134                 1289              637
##   Rural             62    5                   31               24
chi_result <- chisq.test(tabla_area_sistema)
## Warning in stats::chisq.test(x, y, ...): Chi-squared approximation may be
## incorrect
print(chi_result)
## 
##  Pearson's Chi-squared test
## 
## data:  tabla_area_sistema
## X-squared = 7.7007, df = 3, p-value = 0.05262
if (any(chi_result$expected < 5)) {
  cat("\n⚠️ Hay celdas con frecuencia esperada < 5 → se usa Fisher exacto\n")
  fisher_result <- fisher.test(tabla_area_sistema, simulate.p.value = TRUE, B = 10000)
  print(fisher_result)
}
## 
## ⚠️ Hay celdas con frecuencia esperada < 5 → se usa Fisher exacto
## 
##  Fisher's Exact Test for Count Data with simulated p-value (based on
##  10000 replicates)
## 
## data:  tabla_area_sistema
## p-value = 0.0404
## alternative hypothesis: two.sided
modelo_crudo_area <- multinom(sistema ~ area_cat, data = df_obj4, trace = FALSE)
summary(modelo_crudo_area)
## Call:
## multinom(formula = sistema ~ area_cat, data = df_obj4, trace = FALSE)
## 
## Coefficients:
##                      (Intercept) area_catRural
## Oído                 -2.34638634    -0.1713150
## Sistema circulatorio -0.08260427    -0.6105592
## Sistema nervioso     -0.78745778    -0.1616277
## 
## Std. Errors:
##                      (Intercept) area_catRural
## Oído                  0.09042658     0.4736094
## Sistema circulatorio  0.03860156     0.2233326
## Sistema nervioso      0.04779273     0.2451117
## 
## Residual Deviance: 8385.069 
## AIC: 8397.069
# =============================================================================
# OBJETIVO 4 - PASO 4: Modelo ajustado
# =============================================================================

modelo_ajustado_area <- multinom(sistema ~ area_cat + sexo + edadmadre + edadges + pesonacer,
                                 data = df_obj4, trace = FALSE)
summary(modelo_ajustado_area)
## Call:
## multinom(formula = sistema ~ area_cat + sexo + edadmadre + edadges + 
##     pesonacer, data = df_obj4, trace = FALSE)
## 
## Coefficients:
##                        (Intercept) area_catRural      sexoI      sexoM
## Oído                 -4.5706359122   0.009761801 -9.1032415 -0.1269568
## Sistema circulatorio  0.0008493883  -0.527933596 -1.3824348 -0.1221802
## Sistema nervioso      2.6709973847  -0.035096907 -0.8842807 -0.2053674
##                         edadmadre     edadges     pesonacer
## Oído                 0.0009047747  0.04569817  1.830169e-04
## Sistema circulatorio 0.0286915774 -0.01418121 -9.977457e-05
## Sistema nervioso     0.0056170429 -0.08492838 -1.881580e-04
## 
## Std. Errors:
##                       (Intercept) area_catRural        sexoI       sexoM
## Oído                 0.0004521312  7.777821e-05 1.143488e-09 0.002806142
## Sistema circulatorio 0.0011429805  8.810844e-04 5.748481e-04 0.059331531
## Sistema nervioso     0.0007711844  6.402952e-04 7.095307e-04 0.031647132
##                        edadmadre     edadges    pesonacer
## Oído                 0.013346676 0.016555494 1.619173e-04
## Sistema circulatorio 0.005358101 0.006884568 6.357821e-05
## Sistema nervioso     0.006513214 0.008352350 7.563190e-05
## 
## Residual Deviance: 7574.07 
## AIC: 7616.07
# =============================================================================
# OBJETIVO 4 - PASO 5: OR + IC95% + p-valor (usando la función ya definida)
# =============================================================================

res_crudo_area    <- extraer_OR(modelo_crudo_area, "Crudo")
res_ajustado_area <- extraer_OR(modelo_ajustado_area, "Ajustado")

tabla_obj4 <- bind_rows(res_crudo_area, res_ajustado_area)

# Filtrar solo la variable de interés (area_cat) para vista rápida
tabla_obj4 %>% filter(grepl("area_cat", variable))
##     modelo              sistema      variable    OR IC_inf IC_sup      p
## 1    Crudo                 Oído area_catRural 0.843  0.333  2.132 0.7176
## 2    Crudo Sistema circulatorio area_catRural 0.543  0.351  0.841 0.0063
## 3    Crudo     Sistema nervioso area_catRural 0.851  0.526  1.375 0.5096
## 4 Ajustado                 Oído area_catRural 1.010  1.010  1.010 0.0000
## 5 Ajustado Sistema circulatorio area_catRural 0.590  0.589  0.591 0.0000
## 6 Ajustado     Sistema nervioso area_catRural 0.966  0.964  0.967 0.0000
# Tabla completa
print(tabla_obj4)
##      modelo              sistema      variable     OR IC_inf IC_sup      p
## 1     Crudo                 Oído   (Intercept)  0.096  0.080  0.114 0.0000
## 2     Crudo                 Oído area_catRural  0.843  0.333  2.132 0.7176
## 3     Crudo Sistema circulatorio   (Intercept)  0.921  0.854  0.993 0.0324
## 4     Crudo Sistema circulatorio area_catRural  0.543  0.351  0.841 0.0063
## 5     Crudo     Sistema nervioso   (Intercept)  0.455  0.414  0.500 0.0000
## 6     Crudo     Sistema nervioso area_catRural  0.851  0.526  1.375 0.5096
## 7  Ajustado                 Oído   (Intercept)  0.010  0.010  0.010 0.0000
## 8  Ajustado                 Oído area_catRural  1.010  1.010  1.010 0.0000
## 9  Ajustado                 Oído         sexoI  0.000  0.000  0.000 0.0000
## 10 Ajustado                 Oído         sexoM  0.881  0.876  0.886 0.0000
## 11 Ajustado                 Oído     edadmadre  1.001  0.975  1.027 0.9460
## 12 Ajustado                 Oído       edadges  1.047  1.013  1.081 0.0058
## 13 Ajustado                 Oído     pesonacer  1.000  1.000  1.001 0.2583
## 14 Ajustado Sistema circulatorio   (Intercept)  1.001  0.999  1.003 0.4574
## 15 Ajustado Sistema circulatorio area_catRural  0.590  0.589  0.591 0.0000
## 16 Ajustado Sistema circulatorio         sexoI  0.251  0.251  0.251 0.0000
## 17 Ajustado Sistema circulatorio         sexoM  0.885  0.788  0.994 0.0395
## 18 Ajustado Sistema circulatorio     edadmadre  1.029  1.018  1.040 0.0000
## 19 Ajustado Sistema circulatorio       edadges  0.986  0.973  0.999 0.0394
## 20 Ajustado Sistema circulatorio     pesonacer  1.000  1.000  1.000 0.1166
## 21 Ajustado     Sistema nervioso   (Intercept) 14.454 14.433 14.476 0.0000
## 22 Ajustado     Sistema nervioso area_catRural  0.966  0.964  0.967 0.0000
## 23 Ajustado     Sistema nervioso         sexoI  0.413  0.412  0.414 0.0000
## 24 Ajustado     Sistema nervioso         sexoM  0.814  0.765  0.866 0.0000
## 25 Ajustado     Sistema nervioso     edadmadre  1.006  0.993  1.019 0.3885
## 26 Ajustado     Sistema nervioso       edadges  0.919  0.904  0.934 0.0000
## 27 Ajustado     Sistema nervioso     pesonacer  1.000  1.000  1.000 0.0129
# Comparación AIC
data.frame(
  Modelo = c("Crudo","Ajustado"),
  AIC = c(AIC(modelo_crudo_area), AIC(modelo_ajustado_area))
)
##     Modelo      AIC
## 1    Crudo 8397.069
## 2 Ajustado 7616.070