multiple.get.data.subset <-
function (data.ld, markers, columns = 1:ncol(xmat(data.ld)))
{
right.stuff <- get.the.right.stuff(data.ld, columns, markers)
invisible(get.data.subset(data.ld, right.stuff))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.