Que es la endogamia?

En la Antropologia es la Práctica de contraer matrimonio entre personas de ascendencia común, naturales de una misma localidad o comarca, o de un grupo social. Mientras que en la biologia se define como el cruzamiento entre individuos de una raza, comunidad o población aislada genéticamente.

knitr::include_graphics("Endogamia.jpg")

Charles Darwin se casa con su prima Emma Wedgwood el 29 de Enero de 1839.

Depresion Endogamica

knitr::include_graphics("Endogamia2.jpg")

La deformidad facial de los Habsburgo en la dinastía real estaba vinculada a la endogamia.

que es el coeficiente de endogamia? (F).

es la probabilidad de que dos alelos presentes en él sean idénticos por descendencia.

El coeficiente de endogamia de un individuo es igual al coeficiente de kinship (coascendencia) de sus padres

ECUACIÓN GENERALIZADA

Generalizando, el coeficiente de consanguinidad es:

knitr::include_graphics("Endogamia4.jpg")

Ejemplo calculo de coeficiente de endogamia con RMARKDOWN

knitr::include_graphics("endogamia3.jpg")

la imagen anterior demuestra un cruce endogamico entre perros, se calculara el coeficiente de endogamia mediante programacion

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)

### Creación de objeto genealogía
Ped <- with(Pedigree, pedigree(id=id, dadid=fatherid, momid=motherid, sex=sex,
                               affected = affected, status= status))

plot( Ped, cex = 1)

Calcular e interpretar la endogamia

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

Conclusion

Al analizar el grafico, nos damos cuenta que el nivel de parentesco de las crias con si mismas es de 1.25, siendo el .25 excedente la probabilidad de que sus genes sean identicos por descendencia en otras palabras el nivel de endogamia de las 3 crias es del 25%.