tu dois pouvoir te debrouiller avec les instructions suivantes scenar<-list.files(path=default.path) #pour recuperer les noms des repertoires à l'adresse default.path for (i in 1:length(Scenars)) { DF[[i]] <- read.table(paste(default.path,"/",Scenars[i],"/Biomasses.csv",sep=""),sep=";") } il faudrait pouvoir stocker sur le wiki les fichiers R et instructions interessantes pour les utilisateurs,... tu peux peut-etre initier le processus! (par exemple à cet endroit : http://isis-fish.labs.libre-entreprise.org/wiki-moin/instance/cgi-bin/moin.c...) a+ stephanie chirine HUSSEIN a écrit :
Bonjour à tous, Nous avons un petit probleme sous R.
Nous voulons importer 256 fichiers de Biomasse, par exemple, qui contiennent les resultats de simulations. Seul le numero du nom du repertoire de la simulation change dans le chemin d'acces au fichier. Savez-vous comment on pourrait automatiser la procedure d'importation de ses fichier dans R, sans avoir a repeter 256 fois la ligne de commande d'importation ? Par exemple au moyen d'un boucle for et envoyer les resultats dans une liste ? ------------------------------------------------------------ Exemple de commandes, non automatises : BIOM[[1]]<-read.table("C:\\AS_89 2009-05-15-09-13_0\\Biomasses.CSV", sep=";", header=T) BIOM[[2]]<-read.table("C:\\AS_89 2009-05-15-09-13_1\\Biomasses.CSV", sep=";", header=T) . . . BIOM[[256]]<-read.table("C:\\AS_89 2009-05-15-09-13_256\\Biomasses.CSV", sep=";", header=T) ---------------- Exemple de programme qui permettrait d'automatiser (Non focntionnal car il reste un seul probleme : le numero du nom du repertoire doit changer de maniere automatique (comment introduire une sorte d'indice i) for (i in 1:nrow(SumBIOM)) { BIOM[[i]]<-read.table("C:\\AS_89 2009-05-15-09-13_1\\Biomasses.CSV", sep=";", header=T) }
Merci d'avance
------------------------------------------------------------------------
_______________________________________________ Isis-fish-user mailing list Isis-fish-user@lists.labs.libre-entreprise.org http://lists.labs.libre-entreprise.org/mailman/listinfo/isis-fish-user
-- ...................................................................... Stephanie MAHEVAS (Stephanie.Mahevas@ifremer.fr) IFREMER/EMH (Ecologie et Modèles pour l'Halieutique) Tel: 02 40 37 41 81 Fax: 02 40 37 40 75 o \ o / _ o __| \ / |__ o _ \ o / o /|\ | /\ ___\o \o | o/ o/__ /\ | /|\ / \ / \ | \ /) | ( \ /o\ / ) | (\ / | / \ / \ ......................................................................