datChr<-function(x, geno, annotation)
{
o <- annotation[,1]==x
selNames <- annotation[o, 2]
ans <- geno[, selNames]
ans
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.