Nothing
library(snpStats)
data(families)
#tests <- tdt.snp(data = pedData, snp.data = genotypes)
phen <- within(pedData, {
id <- rownames(pedData)
})
phen <- rename(phen, c(familyid = "famid"))
mod <- solarPolygenic(affected ~ 1, phen, dir = "solar")
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.