Nothing
require("TSmisc")
require("tfplot")
yahoo <- TSconnect("histQuote", dbname="yahoo")
if (FALSE) { #histQuote temp? bug with oanda which now needs https
oanda <- TSconnect("histQuote", dbname="oanda")
} # end if FALSE
tmp <- tempdir()
#"^ftse" previously but started causing not available problems circa Aug 2016
files <- paste(tmp, c("gspcsmall.png", "DJIsmall.png", "ibmsmall.png",
"ibmVsmall.png", "EuroUSDsmall.png","EuroUSD2small.png","tyxsmall.png"),sep="/")
x <- TSget(serIDs="^gspc", con=yahoo)
png(file=files[1],width=480, height=240, pointsize=12, bg = "white")
# mv gspcsmall.png gspcsmall.png.orig ; pngcrush gspcsmall.png.orig gspcsmall.png
#png(file="gspc.png", width=960, height=480, pointsize=12, bg = "white")
tfOnePlot(x, start=as.Date("2011-01-01"),
Title = "Running commentary, blah, blah, blah",
subtitle="gspc",
ylab= "index",
xlab= "2011",
source="Source: Yahoo (^gspc)",
footnoteRight = paste("Extracted:", date()),
lastObs = TRUE )
dev.off()
z <- TSget(serIDs="^DJI", con=yahoo)
png(file=files[2],width=480, height=240, pointsize=12, bg = "white")
# mv DJIsmall.png DJIsmall.png.orig ; pngcrush DJIsmall.png.orig DJIsmall.png
#png(file="DJI.png", width=960, height=480, pointsize=12, bg = "white")
tfOnePlot(z, start=as.Date("2011-09-01"),
Title = "Running commentary, blah, blah, blah",
subtitle="DJI",
ylab= "index",
xlab= "2011",
source="Source: Yahoo (^DJI)",
footnoteRight = paste("Extracted:", date()),
lastObs = TRUE )
dev.off()
ibmC <- TSget("ibm", yahoo, quote = "Close")
png(file=files[3],width=480, height=240, pointsize=12, bg = "white")
# mv ibmsmall.png ibmsmall.png.orig ; pngcrush ibmsmall.png.orig ibmsmall.png
#png(file="ibm.png", width=960, height=480, pointsize=12, bg = "white")
tfOnePlot(ibmC, start=as.Date("2011-01-01"),
Title = "Running commentary, blah, blah, blah",
subtitle="IBM Close",
ylab= "dollars",
xlab= "2011",
source="Source: Yahoo (ibm)",
footnoteRight = paste("Extracted:", date()),
lastObs = TRUE )
dev.off()
ibmV <- TSget("ibm", con=yahoo, quote = "Vol")/1e6
png(file=files[4],width=480, height=240, pointsize=12, bg = "white")
# mv ibmVsmall.png ibmVsmall.png.orig ; pngcrush ibmVsmall.png.orig ibmVsmall.png
#png(file="ibmV.png", width=960, height=480, pointsize=12, bg = "white")
tfOnePlot(ibmV,
Title = "Running commentary, blah, blah, blah",
subtitle="IBM Volume",
ylab= "million dollars",
source="Source: Yahoo (ibm)",
footnoteRight = paste("Extracted:", date()),
lastObs = TRUE )
dev.off()
if (FALSE) { #histQuote temp? bug with oanda which now needs https
EuroUSD <- TSget("EUR/USD", con=oanda, start=Sys.Date() - 480)
png(file=files[5],width=480, height=240, pointsize=12, bg = "white")
# mv EuroUSDsmall.png EuroUSDsmall.png.orig ; pngcrush EuroUSDsmall.png.orig EuroUSDsmall.png
#png(file="EuroUSD.png", width=960, height=480, pointsize=12, bg = "white")
tfOnePlot(EuroUSD, start=as.Date("2011-01-01"),
Title = "Running commentary, blah, blah, blah",
subtitle="EUR / USD",
ylab= "Euro / USD",
source="Source: Oanda (EUR/USD)",
footnoteRight = paste("Extracted:", date()),
lastObs = TRUE )
dev.off()
EuroUSD <- TSget("EUR/USD", con=oanda, start=Sys.Date() - 480)
png(file=files[6],width=480, height=240, pointsize=12, bg = "white")
# mv EuroUSDsmall.png EuroUSDsmall.png.orig ; pngcrush EuroUSDsmall.png.orig EuroUSDsmall.png
#png(file="EuroUSD.png", width=960, height=480, pointsize=12, bg = "white")
tfOnePlot(EuroUSD, start=as.Date("2011-01-01"),
Title = "Running commentary, blah, blah, blah",
subtitle="EUR / USD",
ylab= "Euro / USD",
source="Source: Oanda (EUR/USD)",
footnoteRight = paste("Extracted:", date()),
lastObs = TRUE )
dev.off()
} # end if FALSE
tyx <- TSget("^TYX", con=yahoo, quote="Close")
png(file=files[7],width=480, height=240, pointsize=12, bg = "white")
# mv tyxsmall.png tyxsmall.png.orig ; pngcrush tyxsmall.png.orig tyxsmall.png
#png(file="tyx.png", width=960, height=480, pointsize=12, bg = "white")
tfOnePlot(tyx, start=as.Date("2011-01-01"),
Title = "Running commentary, blah, blah, blah",
subtitle="30-Year Treasury Bond",
ylab= "index",
xlab= "2011",
source="Source: Yahoo (tyx)",
footnoteRight = paste("Extracted:", date()),
lastObs = TRUE )
dev.off()
unlink(tmp, recursive = TRUE)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.