#' 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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.