Nothing

```
Model.Counts <-
function(parameter,model.type,model.name,link,covariates.matrix.mean,
covariates.matrix.scalef,offset.mean,offset.scalef,
fixed.b,vnmax) {
if (model.type=="mean only") {
output <- Model.Faddy(parameter,model.name,link,covariates.matrix.mean,
offset.mean,fixed.b,vnmax)
} # end of mean only model
if (model.type=="mean and scale-factor") {
if ((model.name=="general") | (model.name=="general fixed b")) {
output <- Model.FaddyJMV.general(parameter,link,covariates.matrix.mean,
covariates.matrix.scalef,offset.mean,
offset.scalef,fixed.b,vnmax) }
if (model.name=="limiting") {
output <- Model.FaddyJMV.limiting(parameter,link,covariates.matrix.mean,
covariates.matrix.scalef,offset.mean,
offset.scalef,vnmax) }
} # end of mean and scale-factor model
return(output) }
```

**Any scripts or data that you put into this service are public.**

Embedding an R snippet on your website

Add the following code to your website.

For more information on customizing the embed code, read Embedding Snippets.