search for: rbootlimits

...t;, "Own bootstrap", "R bootstrap": library(ggplot2) e <- 1 p <- 1 x <- 1:S y <- rep(betas[p],S) data <- data.frame(x,y) classiclimits <- aes(x=x,ymax = classic[,e,p,1], ymin=classic[,e,p,2]) ownlimits <- aes(x=x+0.4,ymax = own[,e,p,1], ymin=own[,e,p,2]) rbootlimits <- aes(x=x+0.8,ymax = rboot[,e,p,1], ymin=rboot[,e,p,2]) g1 <- ggplot(data, aes(x, y)) g1 + geom_errorbar(classiclimits, colour = "red") + geom_errorbar(ownlimits, colour = "green") + geom_errorbar(rbootlimits, colour = "blue") + geom_hline(yintercept = betas[p...