Nothing
`vrais.LDL.add` <-
function(moyenne.pere,alpha.Q,s,CD,perf,PLA,DL.m,DL.chrom1,DL.chrom2,desc.pere,mean.gene)
{
nb.pere = length(desc.pere[,1])
logvrais = 0
for (i in 1:nb.pere)
{
deb=desc.pere[i,1]
fin=desc.pere[i,2]
vrais.intra.pere = vrais.LDL.add.pere(moyenne.pere[i],alpha.Q,s,CD[deb:fin],perf[deb:fin],PLA[deb:fin],DL.m[deb:fin],DL.chrom1[i],DL.chrom2[i],mean.gene)
logvrais = logvrais + vrais.intra.pere
}
logvrais
}
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.