Datei:Msft stockprice.png

Börsenkurs von Microsoft in US-Dollar

erstellt mit GNU R

R Quelltext (siehe auch Hilfe zu get.hist.quote):

library(tseries)
if(!inherits(try(open(url("http://quote.yahoo.com")), silent = TRUE), "try-error")) {
  nDays <- 150
  start <- strftime(as.POSIXlt(Sys.time() - nDays*24*3600), format="%Y-%m-%d") 
  end <- strftime(as.POSIXlt(Sys.time()), format = "%Y-%m-%d") 
  x <- get.hist.quote(instrument = "MSFT", start = start, end = end)
  plotOHLC(x, ylab = "price", main = "Microsoft")
}

Thomas Steiner