samplepath <- system.file("extdata", "Whole_Blood_Analysis.snpgenes.head100", package="longevityTools")
test.import <- function(){
## Test import of eQTL file
dat <- read.delim(samplepath)
checkTrue(nrow(dat)==100)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.