Nothing
`obj.haplomax.add` <-
function(perf,CD,assoc,res.structure,pi.hap,cor.pere,cor.mere){
nbre.hap = length(pi.hap[[1]])
pi.Qh = pi.hap[[1]][assoc]
esp.Qh = rep(0,nbre.hap)
esp.Qh[assoc] = pi.Qh
proba.DL.pere = proba.DL(pi.Qh,esp.Qh,res.structure,pi.hap,cor.pere)
proba.DL.mere = proba.DL(pi.Qh,esp.Qh,res.structure,pi.hap,cor.mere)
proba.DL = proba.DL.pere+proba.DL.mere
#régression linéaire
res = aov(perf~proba.DL, weight=CD^2)
res
}
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.