diff options
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 - |
