Description Usage Arguments Value Missing values Author(s) See Also Examples

Computes a weighted MAD of a numeric vector.

1 2 3 4 5 6 7 8 | ```
weightedMad(x, w = NULL, idxs = NULL, na.rm = FALSE, constant = 1.4826,
center = NULL, ...)
rowWeightedMads(x, w = NULL, rows = NULL, cols = NULL, na.rm = FALSE,
constant = 1.4826, center = NULL, ...)
colWeightedMads(x, w = NULL, rows = NULL, cols = NULL, na.rm = FALSE,
constant = 1.4826, center = NULL, ...)
``` |

`x` |
a |

`w` |
a vector of weights the same length as |

`idxs, rows, cols` |
A |

`na.rm` |
a logical value indicating whether |

`constant` |
A |

`center` |
Optional |

`...` |
Not used. |

Returns a `numeric`

scalar.

Missing values are dropped at the very beginning,
if argument `na.rm`

is `TRUE`

, otherwise not.

Henrik Bengtsson

For the non-weighted MAD, see `mad`

. Internally
`weightedMedian`

() is used to calculate the weighted median.

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 | ```
x <- 1:10
n <- length(x)
m1 <- mad(x)
m2 <- weightedMad(x)
stopifnot(identical(m1, m2))
w <- rep(1, times = n)
m1 <- weightedMad(x, w)
stopifnot(identical(m1, m2))
# All weight on the first value
w[1] <- Inf
m <- weightedMad(x, w)
stopifnot(m == 0)
# All weight on the first two values
w[1:2] <- Inf
m1 <- mad(x[1:2])
m2 <- weightedMad(x, w)
stopifnot(identical(m1, m2))
# All weights set to zero
w <- rep(0, times = n)
m <- weightedMad(x, w)
stopifnot(is.na(m))
``` |

Questions? Problems? Suggestions? Tweet to @rdrrHQ or email at ian@mutexlabs.com.

Please suggest features or report bugs in the GitHub issue tracker.

All documentation is copyright its authors; we didn't write any of that.

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.