From 2c2b03d3ade43107a0776468bcf97468a7b81d58 Mon Sep 17 00:00:00 2001
From: Guillaume Horel <guillaume.horel@gmail.com>
Date: Fri, 14 Oct 2011 01:18:07 -0400
Subject: small cleanup

---
 bandit.R | 9 ---------
 1 file changed, 9 deletions(-)

(limited to 'bandit.R')

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 -
-- 
cgit v1.2.3-70-g09d2