document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. library(quantmod)
  2.  
  3. dataFile_strip <- "test_data2.csv"
  4. dataDir <- "/Users/alex/Dev/R/stockdata"
  5. file2 <- paste(dataDir,"/",dataFile_strip,sep="")
  6.  
  7. zz <- read.zoo(file2, sep = ",",format="%Y.%m.%d", header=TRUE,index.column=1,colClasses=c("character",rep("numeric",5)))
  8. head(zz)
  9.  
  10. xx<- as.xts(zz)
');