From 83b41368bbc072bead2b6311c7a019b40164bba4 Mon Sep 17 00:00:00 2001
From: Guillaume Horel <guillaume.horel@gmail.com>
Date: Tue, 18 Oct 2011 02:40:30 -0400
Subject: Tons of fixes

have downloaded a complete history of the sp500 since 01/01/2000
---
 bandit.R | 9 ++-------
 1 file changed, 2 insertions(+), 7 deletions(-)

(limited to 'bandit.R')

diff --git a/bandit.R b/bandit.R
index 1a8dd1b..8e2fe70 100644
--- a/bandit.R
+++ b/bandit.R
@@ -1,10 +1,4 @@
-#fix bug in adjRatios
-source("patch-adjRatios.R")
-assignInNamespace("adjRatios",adjRatios,ns="TTR")
-library(TTR)
-rm(adjRatios)
-
-sp500<- read.table("sp500 tickers 10-04.csv",sep="\t",header=T,quote="",colClasses="character",strip.white=T)
+sp500<- read.table("sp500 tickers 10-17.csv",sep="\t",header=T,quote="",colClasses="character",strip.white=T)
 colnames(sp500) <- c("name","ticker")
 #replace / by -
 sp500$ticker <- sub('/', '-', sp500$ticker)
@@ -14,6 +8,7 @@ tickerlist <- list()
 for(i in 1:length(sp500$ticker)){
   ticker <- sp500[i,"ticker"]
   tickerlist[[ticker]] <- getYahooData(ticker,"20000101")
+  cat("ticker",i,ticker,"\n")
 }
 
 #compute matrix of returns
-- 
cgit v1.2.3-70-g09d2