gistfile1.txt

# Assume just the first few parameters vary, but can do the same thing.

ad.surv.intercept.vec <- c(0.0002516054 , 0.0001)
ad.surv.temp.vec <- c(0.1702, 0.2)


tic()
results <- 
  lapply(1:2, function(x) 
    results = run_simulation(ad.surv.intercept.vec[x],
                             ad.surv.temp.vec[x],
                             ad.surv.pack,disp.intercept,disp.pack.size,IBI.intercept,IBI.tempcoef,IBI.pups,
                             pup.intercept,pup.pack.size,juv.surv.intercept,juv.surv.temp,juv.surv.litter,
                             meantemp,actual.meantemp,number.of.packs,n.steps,repeats, burntime)
  )
toc()