usdb <- "/fame/data/database/us.db"
boink <- getfame("gdp.q", db = usdb) ## returns a list
gpd.q <- boink[[1]] ## or boink$gdp.q
getfame("gdp.q", db = usdb, save = TRUE) ## saves gdp.q in the current frame
## saves the series as "nominalIncome"
getfame(c(nominalIncome = "gdp.q"), db = usdb, save = TRUE)
seriesA <- tis(1:24, start = c(2002, 1), freq = 12)
seriesB <- tis(1:104, start = c(2002, 1), tif = "wmonday")
documentation(seriesB) <- paste("Line", 1:4, "of seriesB documentation")
## store them as "mser" and "wser"
putfame(c(mser = "seriesA", wser = "seriesB"), db = "myfame.db")
matrixSeries <- cbind(a = seriesA, b = seriesA + 3)
putfame(matrixSeries, db = "myfame.db") ## stores as "a" and "b" in Fame
## storing a scalar as "myscalar"
putfame(c(myscalar = 42), db = "myfame.db")
fameWildlist("myfame.db")
fameWhats("myfame.db", fname = "wser", getDoc = TRUE)
Run the code above in your browser using DataLab