# Create paramDemo object from Gompertz mortality and
# quadratic fertility:
dem <- CalcDemo(theta = c(b0 = -5, b1 = 0.1),
beta = c(b0 = 0.5, b1 = 0.01, b2 = 10),
summarStats = TRUE, agesAR = c(5, 10))
# Plot demographic object:
plot(dem)
Run the code above in your browser using DataLab