data(herons.group)
initial <- c(1.9871533,1.9900881,3.6841305,0.4925816)
names(initial) <- c("Adult mean","Immature mean", "Variance","log(b)")
output.fn <- CountsEPPM(number.attempts~0+group | 1, herons.group,initial=initial)
print(output.fn)
Run the code above in your browser using DataLab