¿Qué es el parentesco?

Corresponde a la relación que nace entre personas que descienden de un progenitor común.

->existen varias fuentes para este parentesco:

• Matrimonio: parentesco por afinidad

• Filiacion:parentesco por consanguinidad

• Adopción:parentesco civil

¿Qué es la genealogía?

La genealogía corresponde a una ciencia que es trabajada por un genealogista.

Su objetivo principal corresponde en identificar a todos los ascendientes y descendientes en un árbol genealógico en particular, además de recoger datos personales sobre ellos.

Librerías a ocupar

library(kinship2)

## Loading required package: Matrix

## Loading required package: quadprog

Tabla y creación de vectores

• Creación de vectores según la tabla

id <-c ("Abuela1","Abuelo1","Abuela2","Abuelo2","Papa","Mama","Hermana","Hermano")
padres <-c (NA,NA,NA,NA,"Abuelo1","Abuelo2","Papa","Papa")
madres <-c (NA,NA,NA,NA,"Abuela1","Abuela2","Mama","Mama")
sexo <-c (2,1,2,1,1,2,2,1)
afectado <-c (0,0,0,0,0,0,0,1)
estado <-c (0,1,0,1,0,0,0,0)
tabla <- data.frame(id,padres,madres,sexo,afectado,estado)
knitr::kable(tabla,"pipe",col.name=c("id","padres","madres","sexo","afectado","estado"))

Comandos elaboración data frame y objeto pedigree

• Elaboración data frame

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

## [1] "data.frame"

• Objeto pedigree

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

## [1] "pedigree"

Ped

## Pedigree object with 8 subjects
## Bit size= 4

Genealogía

• Se elabora la genealogía

plot(Ped, cex = 1)

• Colores para la genealogía

plot(Ped, cex = 1, col = "purple")

Calculamos el parentesco

parentesco <- kinship(Ped)*2
class(parentesco)

## [1] "matrix" "array"

parentesco

##         Abuela1 Abuelo1 Abuela2 Abuelo2 Papa Mama Hermana Hermano
## Abuela1    1.00    0.00    0.00    0.00  0.5  0.0    0.25    0.25
## Abuelo1    0.00    1.00    0.00    0.00  0.5  0.0    0.25    0.25
## Abuela2    0.00    0.00    1.00    0.00  0.0  0.5    0.25    0.25
## Abuelo2    0.00    0.00    0.00    1.00  0.0  0.5    0.25    0.25
## Papa       0.50    0.50    0.00    0.00  1.0  0.0    0.50    0.50
## Mama       0.00    0.00    0.50    0.50  0.0  1.0    0.50    0.50
## Hermana    0.25    0.25    0.25    0.25  0.5  0.5    1.00    0.50
## Hermano    0.25    0.25    0.25    0.25  0.5  0.5    0.50    1.00

Conclusión

El parentesco permite establecer un orden de virtud en la cercanía, por ende los parientes podrán exigir o deberán cumplir derechos y obligaciones respectivamente; además de poder generar restricciones, como en el matrimonio.

Las genealogías son útiles para mostrar características físicas que se transmiten de generación en generación, ya que, estas informan sobre la herencia y permiten el análisis de la transmisión de diferentes características.

Referencias

• Genealogía.

https://archivos.juridicas.unam.mx/www/bjv/libros/7/3270/11.pdf

• Parentesco.

https://www.familysearch.org/es/wiki/Utilidad_de_la_genealog%C3%ADa#