distMode {viper} | R Documentation |
This function computes the mode for continuous distributions
distMode(x, adj = 1)
x |
Numeric data vector |
adj |
Number indicating the adjustment for the kernel bandwidth |
Number
data(bcellViper, package="bcellViper") d1 <- exprs(dset) mean(d1[, 1]) median(d1[, 1]) distMode(d1[, 1]) plot(density(d1[, 1])) abline(v=c(mean(d1[, 1]), median(d1[, 1]), distMode(d1[, 1])), col=c("green", "red", "blue")) legend("topleft", c("Mean", "Median", "Mode"), col=c("green", "red", "blue"), lwd=4)