diff options
| -rw-r--r-- | scripts/rqtl2_wrapper.R | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/scripts/rqtl2_wrapper.R b/scripts/rqtl2_wrapper.R index 5ad812e..7cad7d5 100644 --- a/scripts/rqtl2_wrapper.R +++ b/scripts/rqtl2_wrapper.R @@ -226,9 +226,9 @@ print(Xcovar) # Function to calculate the kinship get_kinship <- function(probability, method="LMM"){ if (opt$method == "LMM"){ - kinship = calc_kinship(genome_prob) + kinship = calc_kinship(probability) } else if (opt$method == "LOCO"){ - kinship = calc_kinship(genome_prob, "loco") + kinship = calc_kinship(probability, "loco") }else { kinship = NULL } |