INTRODUCCIÓN

A lo largo de nuestra historia, la “Endogamia” en el pasado fue muy importante para los reinos para mantener “la pureza de su sangre real”, actualmente solo se ve en comunidades especificas y en el apareamiento de animales.

¿QUÉ ES LA ENDOGAMIA?

La Endogamia es cuando dos individuos se unen, ya sea en matrimonio o reproducción, siendo de la misma comunidad, raza, grupo social, etc. Lo cual conlleva a que antiguamente se hiciera esto dentro de la misma familia para mantener la “pureza de la sangre”, aunque actualmente esto se ve muy poco pero sigue estando en las comunidades Amish y en la reproducción de animales manteniendo su linaje. Al hacer un acto endogamico esto podría traer grandes consecuencias. Por ejemplo: -Deformidades faciales -Mayor probabilidad de malformaciones -Mayor probabilidad de enfermedades hereditarias

knitr::include_graphics("Endogamia.jpg")

## ¿SE PUEDE CALCULAR LA ENDOGAMIA? Primero hay que tener en cuenta que al nacer, el bebé tiene dos alelos uno heredado del padre y otro de la madre. Al tener dos alelos idénticos en estado significa que tienen igual función pero no proviene de un ancestro común pero si los alelos son idénticos por descendencia, ahora si son replicas y provienen de un ancestro en común. Si tomamos el ejemplo de un abuelo, dos padres y el niño, y queremos averiguar las probabilidades que tiene el nieto de tener los mismo dos alelo del abuelo. Si la madre tiene 1/2 y el padre igual, entonces quedaría 1/4*1/4= 1/16 eso es un alelo, se calcula exactamente lo mismo con el segundo y quedaría 1/16+1/16= 1/8 lo cual equivale a 0,125 de probabilidades.

knitr::include_graphics("Endo.gif")

¡MÁS RÁPIDO CON PROGRAMACIÓN!

En el programa RStudio Cloud, se crea un reporte Rmarkdown, agregamos “library(kinship2)”, con estos primeros pasos y diferentes códigos podemos realizar nuestras propia tabla endogamica. Si queremos realizar una tabla con la Endogamia de una familia de perros sería:

id<-c("Padre","Madre","Hija","Cria_1","Cria_2","Cria_3")
fatherid<-c(NA,NA,"Padre","Padre","Padre","Padre")
motherid<-c(NA,NA,"Madre","Hija","Hija","Hija")
sex<-c(1,2,2,2,1,2)
affected<-c(0,0,0,1,1,1)
status<-c(0,0,0,0,1,0)

ESQUEMA DE LA FAMILIA PERRUNA

library(kinship2)

## Loading required package: Matrix

## Loading required package: quadprog

id<-c("Padre","Madre","Hija","Cria_1","Cria_2","Cria_3")
fatherid<-c(NA,NA,"Padre","Padre","Padre","Padre")
motherid<-c(NA,NA,"Madre","Hija","Hija","Hija")
sex<-c(1,2,2,2,1,2)
affected<-c(0,0,0,1,1,1)
status<-c(0,0,0,0,1,0)

pedigree<-data.frame(id,fatherid,motherid,sex,affected,status)
Ped <- with(pedigree, pedigree(id=id, dadid=fatherid, momid=motherid, sex=sex, affected = affected, status= status))

plot(Ped,cex=1)

PERO… ¿Y EL CÁLCULO?

Con el código "kinship(Ped)*2" se calculará el porcentaje de cada uno de los individuos.

kinship(Ped)*2

##        Padre Madre Hija Cria_1 Cria_2 Cria_3
## Padre   1.00  0.00 0.50   0.75   0.75   0.75
## Madre   0.00  1.00 0.50   0.25   0.25   0.25
## Hija    0.50  0.50 1.00   0.75   0.75   0.75
## Cria_1  0.75  0.25 0.75   1.25   0.75   0.75
## Cria_2  0.75  0.25 0.75   0.75   1.25   0.75
## Cria_3  0.75  0.25 0.75   0.75   0.75   1.25

Al analizar la tabla podemos decir que las crías tienen un nivel de endogamia de 25% o 0.25, que aparece después de analizar el valor 1.25 que tiene cada una. El valor 1 representa el coeficiente de parentesco de la cría consigo mismo y el exceso de 1(0.25) la probabilidad de que sus genes sean idénticos por descendecia. De esta manera se interpreta que el 25% de sus genes son iguales por descendecia.

CONCLUSIÓN

Todos dentro de nuestras familias compartimos genes, no necesariamente tiene que haber una Endogamia para heredar estos, al igual que podemos calcular de forma rápida y entretenida gracias a la programación. La Endogamia seguirá siendo algo interesante para investigar y ver sus resultados dentro de un grupo en específico, incluso tú podrías hacerlo.

#1- Definición de Endogamia. #link

#2.- Consecuencia de la Endogamia #link