#パッケージの読み込み library("kinship2") ######データ例の作成######## #性別:男性「1」,女性「2」 #塗り:1で塗りつぶし FData <- c(rep(125, 2), rep(0, 18), rep(117, 5), rep(119, 5), rep(0, 10), rep(205, 9), 211) MData <- c(rep(126, 2), rep(0, 18), rep(118, 5), rep(120, 5), rep(0, 10), rep(206, 9), 130) TestData <- data.frame("家系" = c(rep(1, 30), rep(2, 20)), id = c(101:130, 201:220), "父親" = FData, "母親" = MData, "性別" = rep(c(1, 2), 25)