new("StockPanel")
stockPanel()
setDrawOnAxis(.Object = stockPanel(), valueAxis = valueAxis())
setDrawOnAxis(.Object = stockPanel(), valueAxis = "valueAxis1")
stockGraphs <- list(stockGraph(comparable = TRUE), stockGraph(comparable = FALSE))
setStockGraphs(.Object = stockPanel(), stockGraphs = stockGraphs)
stockPanel(stockGraphs = stockGraphs)
addStockGraph(.Object = stockPanel(), comparable = FALSE)
addStockGraph(.Object = stockPanel(), stockGraph = stockGraph(TEST = FALSE))
setStockLegend(.Object = stockPanel(), stockLegend = stockLegend())
Run the code above in your browser using DataLab