tsybakov {modeest} | R Documentation |
The Tsybakov mode estimator
Description
This mode estimator is based on a gradient-like recursive algorithm, more adapted for online estimation. It includes the Mizoguchi-Shimura (1976) mode estimator, based on the window training procedure.
Usage
tsybakov(
x,
bw = NULL,
a,
alpha = 0.9,
kernel = "triangular",
dmp = TRUE,
par = shorth(x)
)
Arguments
x |
numeric. Vector of observations. |
bw |
numeric. Vector of length |
a |
numeric. Vector of length |
alpha |
numeric. An alternative way of specifying |
kernel |
character. The kernel to be used. Available kernels are
|
dmp |
logical. If |
par |
numeric. Initial value in the gradient algorithm.
Default value is |
Details
If bw
or a
is missing, a default
value advised by Djeddour et al (2003) is used:
bw = (1:length(x))^(-1/7)
and a = (1:length(x))^(-alpha)
.
(with alpha = 0.9
if alpha
is missing).
Value
A numeric value is returned, the mode estimate.
Warning
The Tsybakov mode estimate as it is presently computed does not work very well. The reasons of this inefficiency should be further investigated.
Note
The user may call tsybakov
through
mlv(x, method = "tsybakov", ...)
.
References
Mizoguchi R. and Shimura M. (1976). Nonparametric Learning Without a Teacher Based on Mode Estimation. IEEE Transactions on Computers, C25(11):1109-1117.
Tsybakov A. (1990). Recursive estimation of the mode of a multivariate distribution. Probl. Inf. Transm., 26:31-37.
Djeddour K., Mokkadem A. et Pelletier M. (2003). Sur l'estimation recursive du mode et de la valeur modale d'une densite de probabilite. Technical report 105.
Djeddour K., Mokkadem A. et Pelletier M. (2003). Application du principe de moyennisation a l'estimation recursive du mode et de la valeur modale d'une densite de probabilite. Technical report 106.
See Also
mlv
for general mode estimation.
Examples
x <- rbeta(1000, shape1 = 2, shape2 = 5)
## True mode:
betaMode(shape1 = 2, shape2 = 5)
## Estimation:
tsybakov(x, kernel = "triangular")
tsybakov(x, kernel = "gaussian", alpha = 0.99)
mlv(x, method = "tsybakov", kernel = "gaussian", alpha = 0.99)