Nothing
require("TSmisc")
require("tfplot")
require("tframePlus")
cat("************** TSgetSymbol Examples ******************************\n")
con <- TSconnect("getSymbol", dbname="FRED")
#monthly
x <- TSget("CPIAUCNS", con)
plot(x)
tfplot(x)
TSdescription(x)
options(TSconnection=con)
#quarterly
x2 <- TSget("CDSP")
tfplot(x2)
plot(x2)
TSdescription(x2)
# weekly with date
xW <- TSget(c("M2"), con)
plot(xW)
tfplot(xW)
TSdescription(xW)
x <- TSget(c("CPIAUCNS","M2"), con)
#x <- TSget(c("CPIAUCNS","M2"), con, TSrepresentation="timeSeries")
#if("timeSeries" != class(x)) stop("timeSeries class object not returned.")
plot(x)
tfplot(x)
TSdescription(x)
x <- TSget(c("TOTALSL","TOTALNS"), con,
names=c("Total Consumer Credit Outstanding SA",
"Total Consumer Credit Outstanding NSA"))
plot(x)
tfplot(x)
TSdescription(x)
#Q dates on these are month-day, and frequency is wrong
x <- TSget(c("TDSP","FODSP"), con,
names=c("Household Debt Service Payments as a Percent of Disposable Personal Income",
"Household Financial Obligations as a percent of Disposable Personal Income"))
tfplot(x)
TSdescription(x)
yahoo <- TSconnect("getSymbol", dbname="yahoo")
# load Ford as time series class ts. This is mts with open, close, etc
x <- TSget("F", con=yahoo)
plot(x)
tfplot(x)
# test start and end passed to yahoo
x <- TSget(c("DELL","HP","AAPL"), start="2013-07-29", end="2013-07-30",
con=yahoo)
seriesNames(x)
start(x)
end(x)
# test start and end passed using tfwindow for non-yahoo
xW <- TSget(c("M2"), start=as.Date("2013-01-01"),
end=as.Date("2013-07-30"), con)
tfplot(xW)
TSdescription(xW)
start(xW)
end(xW)
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.