R/allele_scan.R

In byandell/qtl2shiny: Shiny interface for 'qtl2' Fine Mapping

allele_scan <- function(phe_mx, cov_df, probs_obj, K_chr,
                    patterns, scan_pat, blups) {
  addcovar <- qtl2mediate::covar_matrix(cov_df)
  qtl2pattern::allele1(probs_obj$probs, phe_mx, addcovar, 
                       probs_obj$map, K_chr,
                       patterns = patterns,
                       scan_pat = scan_pat,
                       blups = blups)
}