# setwd("C:/Users/james/Dropbox/Code/RegretforStochasticMWU")
# source("Batches.R")

set.seed(1)
batches<- 6 #Number of Replications

frames<- 20001 #Number of Replications
eps1<-.5		#Controls player 1 learning rate  
eps2<-.5		#Controls player 2 learning rate 
strategies		<-	10

Coefficients 	<-  matrix(nrow=batches)
RSquared 	<-  matrix(nrow=batches)
Matrices	<-  matrix(nrow=batches)

for(w in 1:batches){
	print(w)
	source("MWUUpdates.R")
	source("Regret.R")
	source("LogRegretTest.R")
	Coefficients[w] <- fit$coefficients[2]
	RSquared[w] 	<- summary(fit)$r.squared
}