Nothing
`proba.DL.diplotype` <-
function(DL.chrom1,DL.chrom2){
DL.QQ = DL.chrom1*DL.chrom2
DL.qq = 1 - DL.chrom1 - DL.chrom2 + DL.QQ
DL.Qq = DL.chrom1 - DL.QQ
DL.qQ = DL.chrom2 - DL.QQ
DL.d = cbind(DL.QQ,DL.qq,DL.Qq,DL.qQ)
DL.d
}
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.