Plot a disclapmixfit object.

# S3 method for disclapmixfit
plot(x, which = 1L, clusdist = clusterdist(x), ...)

Arguments

x

a disclapmixfit object, usually from a result of a call to disclapmix.

which

What plot to make. 1L = clusters and their distances.

clusdist

To use previously computed cluster distances to avoid doing the same computations twice.

...

not used

Value

A data frame with discrete Laplace distributions for each cluster and locus. Side effect: A plot.

Examples


data(danes)
db <- as.matrix(danes[rep(1:nrow(danes), danes$n), 1:(ncol(danes)-1)])
fit <- disclapmix(db, clusters = 4L)
plot(fit)