# NOT RUN {
z=matrix(round(abs(rnorm(5000,0,0.7))),1000,5)
CPM.avg=c(3,4,5,6,7)
tau.values=rep(100,5) #Note tau here is in thousands of pageviews
allocation=ELMSO(z=z,CPM=CPM.avg,tau=tau.values)
reach.ELMSO(allocation$bid[,101],allocation$a,z)
# }
Run the code above in your browser using DataLab