Discussion :

[Jack_dev]

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

[mgdondon]

Bonjour,

C'est certainement possible à l'aide de la fonction vapply() ou une autre fonction de la famille mais je n'ai pas réussi à exécuter votre code initial.

Pour un exemple d'utilisation de la fonction vapply(), voir ici.

Cordialement,