Nothing
calculMinValAbs <-
function(serie){
absolu <- rowSums(abs(serie))
listeAbsolu<- which(absolu==min(absolu))
if (length(listeAbsolu)==1){
pondRetenue <- serie[listeAbsolu,]
aleat <- FALSE
}
else {
# tirage au sort du jeu de pondrations retenu
aleat <- TRUE
idx <- sample(1:length(listeAbsolu), 1)
pondRetenue <- serie[listeAbsolu[idx],]
}
return(list(pondRetenue, aleat))
}
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.