Fix examples: coredata vs. as.vector.

albertosantini · Feb 10, 2013 · 165672b · 165672b
1 parent d592364
commit 165672b
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/examples/ex2.R b/examples/ex2.R
@@ -17,7 +17,7 @@ hackZeroes <- function (x) {
 }
 
 getReturns <- function (symbol) {
-    assetPrice <- coredata(get.hist.quote(symbol,
+    assetPrice <- as.vector(get.hist.quote(symbol,
         start="2009-8-6", end="2011-8-6",
         compression="w", quote="Close", quiet=TRUE))
     assetPrice <- hackZeroes(assetPrice)

diff --git a/examples/ex3.R b/examples/ex3.R
@@ -17,7 +17,7 @@ hackZeroes <- function (x) {
 }
 
 getLogReturns <- function (symbol, start, end) {
-    assetPrice <- coredata(get.hist.quote(symbol,
+    assetPrice <- as.vector(get.hist.quote(symbol,
         start=start, end=end,
         compression="w", quote="Close", quiet=TRUE))
     assetPrice <- hackZeroes(assetPrice)