Réutilisation d'un objet dans une boucle

Bonjour,

J'ai un petit soucis, dans la boucle suivante, j'essaye de réutiliser l'objet data de manière à avoir en fin de boucle:
data1,data2,...data12

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

for (n_i in 1:12) { chemin_actuelle=paste(chemin_backtest,"Back_test_RA_TF_",n_i,".txt",sep="") #Lecture et Backtest sur chaque mois data=read.table(chemin_actuelle,header=FALSE, sep="\t", na.strings="NA", dec=".", strip.white=TRUE)   #Modalité ectaux découpées en classe, 1 si dans intervalle 0 sinon data$ec_mod1=as.numeric(data[,5]< 0.035)   new_valeurs=Backtest(modele,data,n_i,chemin_sauvergarde) resultat=rbind(resultat,new_valeurs) rm(data) }

---

J'avais essayé plusieurs piste en renommant la chaîne data, sans succès, j'ai eu une erreur comme quoi le nombres de valeurs de la dataframe changait. Du coup je suis obligé d'éffacer le data actuelle pour pouvoir traiter l'itération suivante.

Ce qui fait que en fin de boucle, je ne peux plus revoir mes différents data..

Avez vous une idée?

Merci d'avance

Bonjour,
Une façon de faire est peut être d'utiliser les listes. Tu déclare une liste dont chaque élément est un data.frame.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Mylist <- list() for (n_i in 1:12){ chemin_actuelle <- paste(chemin_backtest,"Back_test_RA_TF_",n_i,".txt",sep="") #Lecture et Backtest sur chaque mois data <- read.table(chemin_actuelle,header=FALSE, sep="\t", na.strings="NA", dec=".", strip.white=TRUE)   #Modalité ectaux découpées en classe, 1 si dans intervalle 0 sinon data$ec_mod1 <- as.numeric(data[,5]< 0.035)   new_valeurs <- Backtest(modele,data,n_i,chemin_sauvergarde) #resultat=rbind(resultat,new_valeurs) #rm(data) Mylist[[i]] <- new_valeurs }

---

A la fin, tu auras tout tes data.frame dans Mylist.

BC

Yes merci je viens de trouver ça.
Super forum comme d'hab!