Modérateur : Groupe des modérateurs
Code : Tout sélectionner
for (i in c(1,10,100,1000)){ print(paste("station",paste(rep(0,6-nchar(i)),collapse=""),i,".txt",sep=""))
}
[1] "station000001.txt"
[1] "station000010.txt"
[1] "station000100.txt"
[1] "station001000.txt"
Code : Tout sélectionner
data <- list()
for (i in c(1,10,100,1000)){ auxi <- paste("station",paste(rep(0,6-nchar(i)),collapse=""),i,".txt",sep="")
data[[i]] <- read.table(auxi,...)
}
Code : Tout sélectionner
annee <- 2001:2010
annee
[1] 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010
which(annee=="2004")
4
Code : Tout sélectionner
> x = 1:10
> x
[1] 1 2 3 4 5 6 7 8 9 10
> for (i in c(1:5,7:10)){x[i]=x[i]+10}
> x
[1] 11 12 13 14 15 6 17 18 19 20
Nicolas Péru a écrit :pour la première question la plage des i peut être spécifiée avec un vecteur aussi :Code : Tout sélectionner
> x = 1:10
> x
[1] 1 2 3 4 5 6 7 8 9 10
> for (i in c(1:5,7:10)){x[i]=x[i]+10}
> x
[1] 11 12 13 14 15 6 17 18 19 20
Donc là il ignore la 6ème valeur du vecter lorsqu'il remplace en ajoutant 10.
Code : Tout sélectionner
x <- 1:10
#le numéro 7 et 9 n'existent pas
x <- x[-c(7,9)]
Code : Tout sélectionner
auxi <- list.files(pattern=".txt")# si tu veux que les fichiers texte par exemple ...
data <- list()
for (i in 1:length(auxi)){
data[[i]] <- read.table(auxi[i],...)
}
Retourner vers « Questions en cours »
Utilisateurs parcourant ce forum : Aucun utilisateur enregistré et 1 invité