Pairs <- data.frame(ID1 = "a01005",
ID2 = c("a00013", "a00008", "a00011", "b00001",
"b01006", "b01007", "b01013", "b01014"),
focal = rep(c("PO", "HS"), each=4))
PLL <- CalcPairLL(Pairs, GenoM=SimGeno_example, Plot=FALSE)
PlotPairLL(PLL,
combo = list(c("FS", "PO"), c("HS", "FS"), c("GP", "HS"),
c("FA", "HS"), c("HA", "FA"), c("FA", "GP")),
nrows = 3)
Run the code above in your browser using DataLab