Using the random effect CJS code, modify so that the data are simulated given the following values
>n.occas<-8
>marked<-rep(50,n.occas-1)
>mean.phi<-0.7
>sd.phi<-2
Keep p as is for now at 0.4
>p.input<-rep(.4,n.occas-1)
Run the 3 models coded: Phi constant (m0), Phi random effect (m.re), and Phi fixed time effect (m.t), with p constant for all models. Compare DIC values and estimates
Repeat the above but increase the number of marked animals per occasion to 100:
>marked<-rep(100,n.occas-1)