Last chance! 50% off unlimited learning
Sale ends in
Produces an excess mass plot and the corresponding numerical values if required.
exmsilhouette(xdata, M = 1, CutOff = 1,steps = 50,rug = TRUE,
Lambda = NULL,col = FALSE,rdata = FALSE,label = TRUE)
data in form of vector
the maximal number of modes
determines the cut off value and hence the appearance of the graph
number of different
draws a rug plot at the bottom of the graph
allows to specify an own vector of
lines get colored in purple (
a numerical output is returned
allows to reduce labeling
A plot is always produced. By setting
In case no
value of
calculated
excess mass vector
Muller, D. W. and Sawitzki, G., 09.1991, "Excess Mass Estimates and Tests for Multimodality", Journal of the American Statistical Association , Vol. 86, No. 415, pp. 738--746, http://www.jstor.org/stable/2290406
# NOT RUN {
library(MASS)
attach(geyser)
##Plot allowing for up to two modes and reduced CutOff value
exmsilhouette(duration, M=2, CutOff=1.25)
##Plot with twice the default number of steps, omitting rug plot,
##colorizing the graph and asking for numerical output
res <- exmsilhouette(duration, M=2, CutOff=1.25, steps=100, rug=FALSE, col=TRUE, rdata=TRUE)
##Specifying Lambda and requesting numerical output
L=seq(.01,0.25,0.005)
res <- exmsilhouette(duration, M=3, Lambda=L, col=TRUE, rdata=TRUE)
# }
Run the code above in your browser using DataLab