Nothing
library(GGtools)
if (!exists("hmceuB36.2021")) data(hmceuB36.2021)
## condense to founders only
hmFou = hmceuB36.2021[, which(hmceuB36.2021$isFounder)]
## show basic formula fit
f1 = gwSnpTests(genesym("CPNE1")~male, hmFou, chrnum(20))
cpneTrack <- as(f1, "GRanges")
save(cpneTrack, file="../../data/cpneTrack.rda")
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.