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

## Loading required package: Matrix

## Loading required package: quadprog

Introducción

La Genealogía es una ciencia dedicada al estudio de los antepasados y la descendencia de una familia. De forma mas simple, corresponde al arbol genealógico familiar, el que nos muestra de donde venimos, nuestras lineas sanguineas e incluso enfermedades de nuestros antepasados.

Es aqui donde entra el pedigrí, que es la representación genética de un árbol genealógico. Son los diagramas de la herencia de un rasgo o enfermedad, de varias generaciones.

Construcción de la Tabla

Mediante el uso de varios comandos es posible crear una tabla con la información relacionada a la genealogia. En este caso, se toma de ejemplo la genealogia de mi familia respecto al uso de lentes.

id <-c (“Mario”,“Juan”,“Leonor”,“Elena”,“Ricardo”,“M.Leonor”,“Joaquin”,“Valentina”)

padres <-c (NA,NA,NA,NA,“Juan”,“Mario”,“Ricardo”,“Ricardo”)

madres <-c (NA,NA,NA,NA,“Elena”,“Leonor”,“M.Leonor”,“M.Leonor”)

sexo <-c (1,1,2,2,1,2,1,2)

afectado <-c (1,1,1,1,1,1,1,0)

estado <-c (0,1,1,0,0,0,0,0)

familia <- data.frame(id,padres,madres,sexo,afectado,estado)

Ped <- with(familia, pedigree(id=id, dadid=padres, momid=madres, sex=sexo, affected=afectado, status=estado))

class(Ped)

Ped

Resultados de los comandos anteriores

Parentezco de los miembros de mi familia

parentesco <- kinship(Ped)*2

class(parentesco)

parentesco

Genealogía respecto al uso de lentes en mi familia

Ped <- with(familia, pedigree(id=id, dadid=padres, momid=madres, sex=sexo, affected=afectado, status=estado))

class(Ped)

Ped

plot(Ped, cex = 1)

plot(Ped, cex = 1, col = “blue”)

Conclusión

Nuestro futuro permanece incierto, lo que vuelve más y más necesario el tener conocimiento sobre nuestro pasado, que nos permite contar con una vision de como nuestro pasado se desarrollo y que nos puede asi mismo deparar el futuro en base a esas acciones. Conocer a nuestra familia y de donde provenimos nos permite tener entendimiento de nosotros mismos y ayudarnos a mejorar en todos los aspectos. El uso de la Genealogía estara presente siempre y mejorando cada dia.

Bibliografía

-https://conceptodefinicion.de/genealogia/

-https://www.genome.gov/es/genetics-glossary/Pedigri-genealogia