Bonjour,
je débute dans ce langage et je bloque sur le script suivant :

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
16
17
18
19
20
21
22
23
24
# Extraction des BGD a partir des archives
# Sequence de date
seq(as.Date("2013-01-07"), as.Date("2013-01-20"),"day")
# Dossier des archives
dirin <- c("//172.16.13.218/dp/URBANAIR_V2/output_archive")
dirout <- c("C:/tmp")
# Maille à extraire
XX <- 75
YY <- 28
# Ligne de debut et de fin (positions des lignes correspondant à l'échéance (39-62 pour J-0))
start<-39
end <- 62
 
# Programme
out_J0<-vector()
for (i in 1:length(date))
{
jour <- date [i]
name_fichier_BGD_jour <- paste(dirin,"/", jour,"/",jour,"/CHM_AIRES_",jour,"_",XX,"_",YY,".BGD",sep="")
fichier_BGD <- scan(name_fichier_BGD_jour,what="numeric")
seq_J0 <-fichier_BGD[start:end ] 
out_J0 <-c(out_J0,seq_J0)
}
write(out_J0,file=paste(dirout,"/CHM_AIRES_J0_",XX,"_",YY,sep=""))

Le but de ce script est d'aller lire une série de fichiers selon une période donnée, de récupérer une partie de ce fichier (lignes 39 à 62) et de les copier dans un nouveau fichier.
Je créé dont une séquence de date, qui correspond à cette période.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
seq(as.Date("2013-01-07"), as.Date("2013-01-20"),"day")
me renvoie bien
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
 [1] "2013-01-07" "2013-01-08" "2013-01-09" "2013-01-10" "2013-01-11" "2013-01-12" "2013-01-13"
 [8] "2013-01-14" "2013-01-15" "2013-01-16" "2013-01-17" "2013-01-18" "2013-01-19" "2013-01-20"

Mais c'est la boucle de lecture qui ne fonctionne pas:
-Ma séquence à le format date YYYY-MM-DD alors que mes fichiers ont le format YYYYMMDD.
-J'essaye d'intégrer la fonction "strftime(d, "%Y%m%d")" mais je n'arrive pas à la placer correctement.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
for (i in 1:length(date))
{
jour <- date [i] as strftime(d, "%Y%m%d")

Un peu d’aide serait la bienvenue.

Merci beaucoup.