Schnute error with 0 catch in last run

[droglenc]

> catch = c(4,2,0)
> schnutes<-removal(catch,method="Schnute")
Error in if (LCIfail) { : missing value where TRUE/FALSE needed

[droglenc]

This error only occurs for three passes. This makes sense to send an error here because the Schnute method is attempting to estimate probabilities of capture for the first pass and other than the first pass. If the catch on the third pass is zero then this implies that the probability of capture for other than the first pass was 1 (i.e., it appears that all fish were captured on the second pass). Thus, the optimization routine ultimately gets to 1 for this probability which then causes an error in the likelihood function (because of the logs).

I modified removal() to throw an error message when this situation occurs.

> catch <- c(4,2,0)
> schnutes<-removal(catch,method="Schnute")
 Error: The Schnute method will fail when the catch in the last of three samples is 0. 

There might be a better way to handle this. What would be the estimate of N and the CIs in such a situation? Can the probability of capture for the second sample be fixed at 1?