Error in population model in R: Error in `$<-.data.frame`(`*tmp*`, “Age”, value = NA) : replacement has 1 row, data has 0

Question

I am trying to run the code below. It is a population model for given life history traits in Elk. It starts with 100 elk who then have calves that are listed on the same row.