Bonjour la communauté R,
J'ai cette fonction dans mon code R sauf qu'elle met énormément de temps à tourner (j'utilise B = 200 pour les vrais calculs).
J'aimerais savoir s'il existe une façon plus optimale de coder cette fonction ?

Merci bien !

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
BagHist = function(xx,grille=aa, B= 10) {
# A chaque etape, on prend un nouveau jeu de données, on construit un histogramme, on prédit et on agrége.
   n = length(xx)
   fin = 0
   for(i in 1:B)    {
       xb = xx[sample(n,replace=TRUE)]
       nbr=bropt(xb)$opt
       hs2=hist(xb,breaks=mybreaks(xb,nbr),plot=F,warn.unused = F)
       fin= fin + predict.hist(hs2,grille)
 
   }
   fin/B
}