--- a
+++ b/R/data.R
@@ -0,0 +1,24 @@
+#' 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)
+}
+    
+
+
+