"Week number after warm-up period", "Number of iPod \’\’Fleas\’\’ in stock", 0, n, -8, stocklimit+17) EmpiricalADD( x= c(1:n), y=instock[1:n,5], ltystyle=2) EmpiricalADD( x= c(1:n), y=inventoryposition[1:n,5], ltystyle=3) legend(x=17.5, y=91, c("iPod \’\’Fleas\’\’ in stock at time t","iPod \’\’Flea\’\’ inventory position at time t"), lty=2:3) dev.off() safetystock.mean = mean(safetystock[2:31]) safetystock.sd = sd(safetystock[2:31]) safetystock.ci = qt(df=length(safetystock[2:31])-1, 1-alpha)*safetystock.sd/sqrt(length(safetystock[2:31])) safetystock.upper = safetystock.mean + safetystock.ci safetystock.lower = safetystock.mean - safetystock.ci postscript(file="hw9-safetystock.eps", width=10, height=7) MakePlot("95% Confidence interval for safety stock","Replication number","Safety stock level",0,31,0,18) points(safetystock.lower, pch=24, pty=3) points(safetystock.upper, pch=25, pty=3) points(safetystock.mean, lty=1, type="l") legend( x = 18, y=17, c("Upper confidence", "Sample mean", "Lower confidence"), pch=c(25,-1,24), lty=c(0,1,0)) dev.off() rm(lostsales.sum) lostsales.sum = rep(0,length(lostsales[,2:31])) k = 1 for ( i in lostsales[,2:31]){ lostsales.sum[k] = sum(i) k = k+1 } rm(backorders.sum) backorders.sum = rep(0,length(backorders[,2:31])) k = 1 for ( i in backorders[,2:31]){ backorders.sum[k] = sum(i) k = k+1 } postscript(file = "hw9-autocorrelation.eps", width = 10, height = 4) acf(c(backorders.sum, lostsales.sum), lag=80, main="Autocorrelation between time between lost sales and back orders", ylim=c(-1,1), xlab="Lag (sale number)") dev.off() for( i in c(1:length(backorders))){ print(c("You are watching replication",i)) acf(c(backorders[,i], lostsales[,i]), lag=500, main="Autocorrelation between lost sales and back orders", ylim=c(-1,1)) Sys.sleep(1) } C Output One replication of the SIMAN output is attached for the airline counter problem. The output file for the main problem: ARENA Simulation Results Information Technology Summary for Replication 1 of 30 Project: Elis Electronic Store Run execution date :11/ 2/2012 Analyst: Myles Baker Model revision date:11/ 2/2012