%Script to run banditE, to get Figure 2.1, p 28 in Barto and Sutton
Ravg=zeros(1000,1);

for j=1:2000
    m=randn(10,1);
    [As,Q,R]=banditE(1000,m,0.01);
    Ravg=Ravg+R;
    if mod(j,10)==0
        fprintf('On iterate %d\n',j);
    end
end
Ravg=Ravg./2000;