Nothing

```
# Copyright (c) 2020, Avraham Adler All rights reserved
# SPDX-License-Identifier: BSD-2-Clause
# Average Deviation from the Median with bias correction. Patterned after 'mad'
# in stats
adm <- function(x, center = median(x), constant = sqrt(pi / 2), na.rm = FALSE) {
if (na.rm) {
x <- x[!is.na(x)]
}
constant * mean(abs(x - center))
}
```

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