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

## Loading required package: Matrix

## Loading required package: quadprog

Introducción

knitr::include_graphics("introduccion endogamia.png")

La endogamia actúa en las poblaciones de animales silvestres y domesticadas reduciendo la variabilidad genética dentro de las poblaciones, disminuyendo la heterocigocidad, y aumentando la probabilidad de heredar a las siguientes generaciones alelos asociados a defectos genéticos, lo que se traduce finalmente en una reducción en la capacidad de adaptación de los animales al medio ambiente y un aumento en el riesgo de extinción.

Introducción

knitr::include_graphics("1-3.jpg")

En esta ocasión, analizaremos una genealogía endogámica y Calcularemos el coeficiente de endogamia (kinship) de los cachorros de un cruce endogámico.

Desarrollo

knitr::include_graphics("Endogamaia trabajo final.png")

El caso es el siguiente: Padre y madre tienen una hija no endogamica. Luego padre se cruza con hija y generan descendencia endogamica.

CALCULAMOS EL PARENTESCO

id <-c ("padre","madre","hija","cria1","cria2","cria3")
padres <-c (NA,NA,"padre","padre","padre","padre")
madres <-c (NA,NA,"madre","hija","hija","hija")
sexo <-c (1,2,2,1,2,1)
afectado <-c (0,0,0,1,1,1)
estado <-c (0,0,0,0,0,1)
familia <- data.frame(id,padres,madres,sexo,afectado)

knitr::kable(familia,"pipe")

Kinship (cooeficiente de endogamia)

Ped <- with(familia, pedigree(id=id, dadid=padres, momid=madres, sex=sexo, affected=afectado))
parentesco <- kinship(Ped)*2
knitr::kable(parentesco,"pipe")

Conclusión

knitr::include_graphics("investigacin.png")

Se demuestra que los cruces endogamicos generan un kinship elevado. por lo que cabe añadir una breve reflexión respecto a la cruza de cachorros; La endogamia controlada por humanos puede traer beneficios practicos en el ambito agricola, ganadero o investigativo porque permite seleccionar rasgos fenotipicos especificos y reproducirlos con mayor precisión. Por otro lado esta practica implica una mayor predisposición genetica a padecer enfermedades y a disminuir la variabilidad genetica, por lo que es perjudicial para los organismos de una población. se sugiere que las practicas endogamicas se restrinjan solo al campo investigativo y que por ningún motivo se fomente esta acción en la población humana.

Referencias

Ocampo, R., & CARDONA, H. (2013). La endogamia en la producción animal. Revista Colombiana de Ciencia Animal-RECIA, 5(2), 463-479.