summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--bandit.R9
1 files changed, 0 insertions, 9 deletions
diff --git a/bandit.R b/bandit.R
index ea77c98..1a8dd1b 100644
--- a/bandit.R
+++ b/bandit.R
@@ -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 -