Importer et gérer des données financières avec R
Joshua Ulrich
Quantitative Analyst & quantmod Co-Author and Maintainer
setSymbolLookup(AAPL = "google")
aapl <- getSymbols("AAPL", auto.assign = FALSE)
str(aapl) # note the 'src' attribute
Objet ‘xts’ du 2007-01-03 au 2017-02-22 contenant :
Données : num [1:2552, 1:5] 12.3 12 12.2 12.3 12.3 ...
- attr(*, "dimnames")=Liste de 2
..$ : NULL
..$ : chr [1:5] "AAPL.Open" "AAPL.High" "AAPL.Low" "AAPL.Close" ...
Indexé par des objets de classe : [Date] TZ: UTC
Attributs xts :
Liste de 2
$ src : chr "google"
$ updated: POSIXct[1:1], format: "2017-02-23 14:16:55"
setSymbolLookup(MSFT = list(src = "google", from = "2016-01-01"))
msft <- getSymbols("MSFT", auto.assign = FALSE)
str(msft) # note the 'src' attribute and first date
Objet ‘xts’ du 2016-01-04 au 2017-02-27 contenant :
Données : num [1:290, 1:5] 54.3 54.9 54.3 52.7 52.4 ...
- attr(*, "dimnames")=Liste de 2
..$ : NULL
..$ : chr [1:5] "MSFT.Open" "MSFT.High" "MSFT.Low" "MSFT.Close" ...
Indexé par des objets de classe : [Date] TZ: UTC
Attributs xts :
Liste de 2
$ src : chr "google"
$ updated: POSIXct[1:1], format: "2017-02-23 14:20:21"
# Définir la valeur par défaut
setSymbolLookup(AAPL = "google")
# Vérifier la modification
getSymbolLookup()
$AAPL
$AAPL$src
"google"
# Sauvegarder la table de correspondance
saveSymbolLookup("symbol_lookup.rda")
# Supprimer la correspondance
setSymbolLookup(AAPL = NULL)
# Vérifier la suppression
getSymbolLookup()
named list()
# Charger la correspondance
loadSymbolLookup("symbol_lookup.rda")
# Vérifier la restauration
getSymbolLookup()
$AAPL
$AAPL$src
"google"
Importer et gérer des données financières avec R