# setwd("C:/Users/james/Dropbox/Code/RegretforStochasticMWU")
# run source("MWUUpdates.R") first
# source("Regret.R")


#####################################INITIALIZE FOR USE
Util1			<-  matrix(nrow=frames)
FixedUtil1		<-  matrix(nrow=frames, ncol=strategies)
Regret1			<-  matrix(nrow=frames)
MRegret1		<-  matrix(nrow=frames)

Util1[1]=paymatrix1[realstrat1[1],realstrat2[1]]
for(i in 1:strategies){
	FixedUtil1[1,i]=paymatrix1[i,realstrat2[1]]
}
Regret1[1]=max(FixedUtil1[1,])-Util1[1]
MRegret1[1]=Regret1[1]

################################BEGINNING OF LOOP
for(k in 2:(frames-1)){
	Util1[k] = Util1[k-1]+paymatrix1[realstrat1[k],realstrat2[k]]
	for(i in 1:strategies){
		FixedUtil1[k,i]=FixedUtil1[k-1,i]+paymatrix1[i,realstrat2[k]]
	}
	Regret1[k]=max(FixedUtil1[k,])-Util1[k]
	MRegret1[k]=max(Regret1[1:k])	
}

#plot(MRegret1)


##########################