Trabajo 4

Benjamin Veliz

12-11-2021

Introduccion

En el siguiente trabajo le presentare y mostrare como es la genealogia o arbol genealogico de mi familia.

## Loading required package: Matrix
## Loading required package: quadprog

Tabla y genealogia de mi familia (dibujo)

Desarrollo

id<-c("Abuelo Paterno","Abuela Paterna","Antonio","Benedicta","Andrea","Segundo","Isabella","Benjamin")
padres<-c(NA,NA,NA,NA,"Antonio","Abuelo Paterno","Segundo","Segundo")
madres<-c(NA,NA,NA,NA,"Benedicta","Abuela Paterna","Andrea","Andrea")
sexo<-c(1,2,1,2,2,1,2,1) 
afectado<-c(0,0,0,0,0,0,0,0)
estado<-c(1,0,1,0,0,0,0,0) 
Familia <- data.frame(id,padres,madres,sexo,afectado,estado)
knitr::kable(Familia, caption = "Tabla de genealogía familia Veliz")
Tabla de genealogía familia Veliz
id padres madres sexo afectado estado
Abuelo Paterno NA NA 1 0 1
Abuela Paterna NA NA 2 0 0
Antonio NA NA 1 0 1
Benedicta NA NA 2 0 0
Andrea Antonio Benedicta 2 0 0
Segundo Abuelo Paterno Abuela Paterna 1 0 0
Isabella Segundo Andrea 2 0 0
Benjamin Segundo Andrea 1 0 0

Esquema arbol genealogico de mi familia

plot(Veliz, cex = 1, col="red")

Coeficientes de parentesco

kin <- kinship(Veliz) *2

knitr::kable(kin,  row.names = TRUE, caption = "Coeficientes de parentesco familia Veliz")
Coeficientes de parentesco familia Veliz
Abuelo Paterno Abuela Paterna Antonio Benedicta Andrea Segundo Isabella Benjamin
Abuelo Paterno 1.00 0.00 0.00 0.00 0.0 0.5 0.25 0.25
Abuela Paterna 0.00 1.00 0.00 0.00 0.0 0.5 0.25 0.25
Antonio 0.00 0.00 1.00 0.00 0.5 0.0 0.25 0.25
Benedicta 0.00 0.00 0.00 1.00 0.5 0.0 0.25 0.25
Andrea 0.00 0.00 0.50 0.50 1.0 0.0 0.50 0.50
Segundo 0.50 0.50 0.00 0.00 0.0 1.0 0.50 0.50
Isabella 0.25 0.25 0.25 0.25 0.5 0.5 1.00 0.50
Benjamin 0.25 0.25 0.25 0.25 0.5 0.5 0.50 1.00

Interpretacion

Genealogia: Una genealogía o pedigrí 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. El árbol genealógico muestra las relaciones entre miembros de una familia e indica cuales son las personas que expresan un rasgo o lo mantiene en silencio por ser portadores del rasgo en cuestión.