inst/scripts/cpneTrack.R

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")

Try the rtracklayer package in your browser

Any scripts or data that you put into this service are public.

rtracklayer documentation built on Nov. 8, 2020, 6:50 p.m.