Some Resampling

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")


EconModels/MacroGrowth documentation built on Dec. 17, 2019, 10:41 p.m.