diff options
| author | Guillaume Horel <guillaume.horel@gmail.com> | 2011-10-14 01:18:07 -0400 |
|---|---|---|
| committer | Guillaume Horel <guillaume.horel@gmail.com> | 2011-10-14 01:18:07 -0400 |
| commit | 2c2b03d3ade43107a0776468bcf97468a7b81d58 (patch) | |
| tree | 65b2431abbfbd1ac0dad9d114ba002279bf6d30c /bandit.R | |
| parent | 13b979c5152960458736a33a428b06d6e342ea7a (diff) | |
| download | bandit-2c2b03d3ade43107a0776468bcf97468a7b81d58.tar.gz | |
small cleanup
Diffstat (limited to 'bandit.R')
| -rw-r--r-- | bandit.R | 9 |
1 files changed, 0 insertions, 9 deletions
@@ -4,15 +4,6 @@ assignInNamespace("adjRatios",adjRatios,ns="TTR") library(TTR) rm(adjRatios) -tickerlist <- list() -result <- c() -for(i in 479:500){ - ticker <- sp500[i,"ticker"] - test <- getYahooData(ticker,"20000101") - test2 <- getYahooData2(ticker,"20000101") - result <- c(result,test$Close[1]-test2$Close[1]) -} - sp500<- read.table("sp500 tickers 10-04.csv",sep="\t",header=T,quote="",colClasses="character",strip.white=T) colnames(sp500) <- c("name","ticker") #replace / by - |