require(mosaic) source('Econ-Growth-Functions2.R')
n <- 100 set.seed(123) sims <- do(n) * attr(cdeModel(data=resample(loadData("US")), energyType="Q", respectRangeConstraints=TRUE), "naturalCoefs") tally( ~ b == 1.0, data= sims ) xyplot( beta ~ alpha, data= sims) qdata( c(0.025, 0.975), alpha, data = sims)
save(sims, n, file="someSimulations.Rda")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.