Nothing

```
# return index of alp, model coefficients in the linear model
alp.index.lm <- function(map, i){
# a logistic regression model, all coef given (inc intercept), no alp for this model
if(any(is.na(map$alp[[i]]))){
return(NULL)
}
map$alp[[i]]
}
```

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