title: Using hurdle control to pass on arguments
body: <p>Can anyone help with the following problem. I fit the model below using the <code>pscl</code> package. I am modelling catch data (about 17,000 entry points) so lots of zero's</p>
  
  <pre><code>fit.hurdle.bin = hurdle(Catch ~ Beach + Region + Year+ 
                        Decade + Month + Season + Whale+ Sex + Size+ meantemp + 
                        meanviz + offset(log(Length.nets..km.)), 
                        dist="poisson",zero.dist="binomial",link="logit",trace=T)
  </code></pre>
  
  <p>The model output tells me that: </p>
  
  <blockquote>
    <p>Warning message:
    In sqrt(diag(object$vcov)) : NaNs produced (against year)</p>
  </blockquote>
  
  <p>I then use hurdle control with “L-BFGS-B” to set some parameter controls to solve this issue, but get the warning message:</p>
  
  <pre><code>L-BFGS-B needs finite values of 'fn'
  In addition: Warning message:
  In optim(fn = countDist, gr = countGrad, par = c(start$count, if (dist ==  :
    method L-BFGS-B uses 'factr' (and 'pgtol') instead of 'reltol' and 'abstol'
  </code></pre>
  
  <p>How do I write the script for Hurdle control and then integrate hurdle control into hurdle to solve these issues?</p>