Nothing

```
reorganize <- function(fit, map, family, type){
if(family == 'gaussian'){
fit <- reorganize.lm(fit, map)
}
if(family == 'binomial'){
fit <- reorganize.lo(fit, map)
}
if(family == 'case-control'){
if(type == 'cc-ref'){
fit <- reorganize.ccr(fit, map)
}else{
fit <- reorganize.cc(fit, map)
}
}
if(family == 'cml'){
fit <- reorganize.cml(fit, map)
}
fit
}
```

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