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 }
Partager