Bonjour,

J'aimerais automatiser l'utilisation de certaines fonctions à l'aide d'une boucle.

J'utilise les paquets suivants :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
library(PerformanceAnalytics);library(zoo);library(tseries);library(boot);library(quadprog)
Je crée un vecteur pour les "stocks" que je veux traiter :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
stocks <- c("abc", "def", "xyz")
Pour chaque "stock", je récupère de l'information sur yahoo finance, à partir d'une date donnée. Je veux donc créer un fichier "zoo" portant le nom de chaque
"stock_prices" à l'aide de la fonction suivante :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
abc_prices = get.hist.quote(instrument="abc", start="2013-08-12", end="2017-04-04", quote="AdjClose",provider="yahoo", origin="2013-01-05",compression="m", retclass="zoo")
def_prices = get.hist.quote(instrument="def", start="2013-08-12", end="2017-04-04", quote="AdjClose",provider="yahoo", origin="2013-01-05",compression="m", retclass="zoo")
xyz_prices = get.hist.quote(instrument="xyz", start="2013-08-12",end="2017-04-04", quote="AdjClose",provider="yahoo", origin="2013-01-05",compression="m", retclass="zoo")
Je veux indexer par mois :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
index(abc_prices)  = as.yearmon(index(abc_prices))
index(def_prices)  = as.yearmon(index(def_prices))
index(xyz_prices)  = as.yearmon(index(xyz_prices))
Je veux assembler le tout dans un seul fichier contenant toutes les informations :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
all_prices = merge(abc_prices, def_prices, xyz_prices)
Puis changer le nom des colonnes pour le nom de chaque "stock" :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
colnames(all_prices) = c("abc", "def", "xyz")
Est-il possible de créer une boucle qui me permettent de faire le tout à l'aide uniquement d'un vecteur des stocks ?

Merci,

Jacques