R/scan1_effect.R

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

scan1_effect <- function(genoprobs, pheno, kinship, addcovar,
                   sex_type, blups) {
  addcovar <- qtl2mediate::sexcovar(addcovar, sex_type)
  addcovar <- qtl2mediate::covar_matrix(addcovar)
  qtl2ggplot::listof_scan1coef(genoprobs, pheno, kinship, addcovar,
                                blups)
}