Nothing

```
ingarch.var <- function(intercept, past_obs=NULL, past_mean=NULL){
#Theoretical marginal variance of a Poisson INGARCH(p,q) process
##############################
tsglm.parametercheck(param=list(intercept=intercept, past_obs=past_obs, past_mean=past_mean, xreg=NULL), link="identity")
result <- ingarch.acf(intercept=intercept, past_obs=past_obs, past_mean=past_mean, lag.max=0, type="acvf", plot=FALSE)[[1]]
return(result)
}
```

**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.