# NOT RUN {
kindata <- tibble::tibble(
id1 = c("a", "b", "c"), id2 = c("x", "y", "z"),
distance = c(50, 45, 65), kinship = c("1C", "1C", "1C")
)
KinPairSimulation_simple(kindata,
kinship = "1C", kerneltype = "Gaussian",
posigma = 38, lifestage = "immature"
)
# }
Run the code above in your browser using DataLab