Discussion :

[Stepsbysteps]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[arm3366]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Stepsbysteps]

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