#' Likelihood surfaces for 400 SNPs in the HES analysis of the UK Biobank

#' 

load.HES.lk.data <- function( ) {

    file = system.file( 'HES_LLK.rdata', package = 'TreeWASDir' )

    load( file )

    out <- list( d = d, res = res )

    return(out)

}

#' List containing parameters

#' 

load.pars <- function( ) {

    file = system.file( 'HES_pars.rdata', package = 'TreeWASDir' )

    load( file )

    out <- pars

    return(out)

}