rsid <- function(bfile) {
#' Extract rsid from a bfile
if(inherits(bfile, "pfile")) stop("Not sure what to do with pfiles yet.")
return(read.bim(bfile)[,2])
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.