R/print_final.R

In Eagle: Multiple Locus Association Mapping on a Genome-Wide Scale

.print_final  <- function(selected_loci, map,  extBIC, lambda )
{
  ## internal function: used by AM
  if (length(selected_loci) == 1 & any(is.na(selected_loci)))
  {
      message("No significant marker-trait associations have been found. \n\n")
     if (is.null(lambda)){
        message("Lambda value for model selection was set to its default value of 1. ")
     } else {
        message("Lambda value for model selection was set to  ", round(lambda,3) , " ")
     } 

  }  else {
     .print_results(selected_loci=selected_loci, map=map,  extBIC=extBIC)
     if (is.null(lambda)){
        message("Lambda value for model selection was set to its default value of 1. ")
     } else {
        message("Lambda value for model selection was set to  ", round(lambda,3) , " ")
     } 
  }   ## end if else
  message("")

}  ## end function print.finals