Nothing
## ----setup,include=FALSE------------------------------------------------------
knitr::opts_chunk$set(echo = TRUE)
library(Haplin, quietly = TRUE)
## ----eval=TRUE----------------------------------------------------------------
hapRelEff(
cases.comp = c(c=1),
controls.comp = c(c=1),
cases.ref = c(mfc=1),
haplo.freq = c(0.1,0.9),
RR = c(1,1)
)
## -----------------------------------------------------------------------------
hapRelEff(
cases.comp = c(mfc=1),
controls.comp = c(mfc=1),
cases.ref = c(mfc=1),
haplo.freq = c(0.2,0.8),
RR = c(1,1)
)
## -----------------------------------------------------------------------------
hapRelEff(
cases.comp = c(mfc=1),
controls.comp = c(mfc=1),
cases.ref = c(mfc=1),
haplo.freq = c(0.2,0.8),
RRcm = c(1,1),
RRcf = c(1,1)
)
## ----eval=TRUE----------------------------------------------------------------
hapRelEff(
cases.comp = list(c(mc=1)),
cases.ref = list(c(mfc=1)),
haplo.freq = c(0.1,0.9),
RR = c(1,1),
RR.mat=c(1,1)
)
## ----eval=TRUE----------------------------------------------------------------
hapRelEff(
nall = c(2,2),
cases.comp = c(c=1),
controls.comp = c(c=1),
cases.ref = c(mfc=1),
haplo.freq = c(0.1,0.2,0.3,0.4),
RR = c(1,1,1,1)
)
## -----------------------------------------------------------------------------
hapRelEff(
cases.comp = c(mfc=1),
controls.comp = c(mfc=1),
cases.ref = c(mfc=1),
haplo.freq = c(0.8,0.2),
RRcm = c(1,2),
RRcf = c(1,1),
xchrom = T,
sim.comb.sex = "double",
BR.girls = 1
)
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.