data-raw/jicaque.R

In magnusdv/ribd: Pedigree-based Relatedness Coefficients

# Data.frame describing the jicaque pedigree studied by Chapman & Jacquard:
#
# Chapman, A.M & Jacquard, A. (1971). Un isolat d'Amerique Centrale: les Indiens Jicaques de Honduras.
# In Genetique et Population. Paris: Presses Universitaires de France

jicaqueMatrix = matrix(c(
  1, 0, 0, 1,
  2, 0, 0, 2,
  3, 0, 0, 1,
  4, 0, 0, 1,
  5, 0, 0, 1,
  6, 0, 0, 2,
  7, 1, 2, 2,
  8, 1, 2, 1,
  9, 3, 7, 2,
  10, 4, 9, 2,
  11, 3, 7, 1,
  12, 5, 9, 2,
  13, 3, 7, 2,
  14, 8, 6, 1,
  15, 11, 10, 1,
  16, 11, 12, 1,
  17, 14, 13, 2,
  18, 14, 13, 2,
  "Julio", 15, 17, 1,
  "Mencha", 16, 18, 2,
  "Son1", "Julio", "Mencha", 1,
  "Son2", "Julio", "Mencha", 1), byrow = TRUE, ncol = 4)

jicaque = as.data.frame(jicaqueMatrix)
names(jicaque) = c("id", "fid", "mid", "sex")

usethis::use_data(jicaque, overwrite = TRUE)