Other/testTimeseriesListRequest.R

In CharlesCara/Datastream2R: Allows access to Datastream data from R

####################################################################################
dwei <- getDataStream(User=options()$Datastream.Username, Pass=options()$Datastream.Password)
startDate <- as.Date("31/12/2011", "%d/%m/%Y")
endData <- Sys.Date()
stockList <- "LFTSE100"
sCode <- "P"
c <- timeSeriesListRequest(dwei = dwei, DSCode = stockList, 
                           Instrument = sCode, startDate = startDate, sStockList = stn, aTimeSeries = stpr)
plot(stpr[,1], main = names(stn[1]))
plot(stpr[,2], main = names(stn[2]))
#
#
#
#
####################################################################################
dwei <- getDataStream(User=options()$Datastream.Username, Pass=options()$Datastream.Password)
startDate <- as.Date("31/12/2010", "%d/%m/%Y")
endDate <- Sys.Date()
stockList <- "LS&PCOMP"
sCode <- "P"
c <- timeSeriesListRequest(dwei = dwei, DSCode = stockList , frequency="D",
                           Instrument = sCode, startDate = startDate, sStockList = stn, aTimeSeries = stpr)
plot(stpr[,1], main = names(stn[1]))
plot(stpr[,2], main = names(stn[2]))


####################################################################################
dwei <- getDataStream(User=options()$Datastream.Username, Pass=options()$Datastream.Password)
startDate <- as.Date("31/12/2010", "%d/%m/%Y")
endDate <- Sys.Date()
stockList <- "L#CROSS"
sCode <- "XXXX"
c <- timeSeriesListRequest(dwei = dwei, DSCode = stockList , frequency="D",
                           Instrument = sCode, startDate = startDate, sStockList = stn, aTimeSeries = stpr)
plot(stpr[,1], main = names(stn[1]))
plot(stpr[,2], main = names(stn[2]))