¿Qué es la endogamia?

La endogamia, que el diccionario define como: cruzamiento entre individuos de una raza, comunidad o población aislada genéticamente, se caracteriza técnicamente como la condición homocigótica de genes en un determinado sitio (locus) cromosómico. La endogamia causa un efecto perjudicial en las poblaciones de organismos vivos que la presentan. Existe una ecuación generalizada para realizar los cálculos: \[ F_x=\sum(1/2)^{n+n'+1}(1+F_A) \] Sin embargo, a través de la programación en R esto se hace más rápido y eficaz.

Endogamia en humanos y animales

• La deformidad facial de los Habsburgo en la dinastía real estaba vinculada a la endogamia.
• En los animales se observa un aumento de malformaciones o aumento de enfermedades hereditarias producto de la consanguinidad.

knitr::include_graphics(c('endogamiahumanos.png','endogamiaanimales.png'))

¿Qué consecuencias puede conllevar?

El efecto perjudicial de la endogamia, también llamado depresión endogámica, necesariamente tuvo que ser observado por el ser humano, probablemente dentro del mismo grupo al que pertenecía, al descubrir que los hijos (progenie) de parejas emparentadas mostraban anomalías como enanismo, albinismo, hemofilia, etcétera, que se acentuaban a lo largo de las generaciones. Para evitarla debió comenzar a hacer precisamente lo contrario del apareamiento endogámico, es decir, procurar que los cruzamientos se hicieran entre individuos no emparentados.

Caso conocido sobre endogamia en humanos

Un caso popular fue el caso de la familia Charles Darwin, que llegó a tener diez hijos con su esposa, con la cual eran primos hermanos. Darwin sabía que la consanguinidad deteriora a las siguientes generaciones, ya sean plantas o animales, provocando su estirpe sufriera muertes prematuras y falta de fertilidad por culpa de la endogamia.

knitr::include_graphics("fdarwin.jpg")

Librerías utilizadas

knitr::opts_chunk$set(echo = TRUE)
library(kinship2)

## Loading required package: Matrix

## Loading required package: quadprog

Tabla de genealogía

Se presenta el código utilizado con sus respectivos vectores, donde en sexo 1 corresponde a hombre y 2 a mujer, y en afectado 0 si no presenta endogamia y 1 si lo presenta. En este caso, los hijos de Charles Darwin y Emma Wedgwood (ambos primos hermanos) tuvieron 3 hijos endogámicos.

#Vectores
id <-c ("Josiah I","Sarah","Josiah II","Elizabeth","Robert","Susanah","Charles Darwin","Emma Wedgwood","Anne","George","Leonard")
father <-c (NA,NA,"Josiah I",NA,NA,"Josiah I","Robert","Josiah II","Charles Darwin","Charles Darwin","Charles Darwin")
mother <-c (NA,NA,"Sarah",NA,NA,"Sarah","Susanah","Elizabeth","Emma Wedgwood","Emma Wedgwood","Emma Wedgwood")
sex <-c (1,2,1,2,1,2,1,2,2,1,1)
affected <-c (0,0,0,0,0,0,0,0,1,1,1)

Generación de tabla de genealogía

familiadarwin <- data.frame(id,father,mother,sex,affected)
knitr::kable(familiadarwin,'pipe',col.name=c('Nombres','Padres','Madres','Sexo','Afectado'), align=c('l','l','l','c',"c"))

Generación de pedigree

darwin_ped <- with(familiadarwin, pedigree(id=id, dadid=father, momid=mother, sex=sex, affected=affected))
darwin_ped

## Pedigree object with 11 subjects
## Bit size= 10

Esquema de la familia Darwin endogámica

plot(darwin_ped, cex = 1, col = "pink")

Tabla de endogamia

A continuación, se presenta una tabla con los coeficientes de endogamia de la familia.

endogamia <- kinship(darwin_ped)*2
knitr::kable(endogamia,"pipe",col.name=c('Josiah I','Sarah','Josiah II','Elizabeth','Robert','Susanah','Charles','Emma','Anne','George','Leonard'),align=c('c','c','c','c','c','c','c','c','c','c','c'))

Conclusiones

En conclusión, la endogamia causa un efecto perjudicial en las poblaciones de organismos vivos que la presentan. Muchas familias reales practicaban el cruzamiento entre parientes con el objetivo de preservar el linaje, sin embargo, trajo distintas anomalías en los hijos endogámicos, estos efectos se vieron potenciados al prolongar esta práctica durante generaciones, reduciendo notablemente la variabilidad genética dentro de su población.

Referencias

• ¿Para qué sirve la endogamia?
• Darwin tenía razón: la endogamia perjudicó a su estirpe