## package
library("gap")

## chr20 data
data("chr20")
imp <- mice(chr20)
fit <- lm.mids(cc ~ rs1419383 + ethnicity, data = imp)
pool(fit)

## RSNPper package
library("RSNPper")
mysnp <- SNPinfo("rs1419383")
popDetails(mysnp)
geneInfo("HNF4A")

## examples
example("fbsize", package = "gap")
example("pbsize", package = "gap")
example("ccsize", package = "gap")
example("tscc", package = "gap")