gtx (version 0.0.8)

fitmix.plot: Plot empirical density and components and total density for finite mixture of univariate Gaussian densities.

Description

Draws a nice plot.

Usage

fitmix.plot(x, p, mu, sigma)

Arguments

x

Real vector of data.

p

Real vector of mixture proportions.

mu

Real vector of mixture component means.

sigma

Real vector of mixture component standard deviations.

Value

Returns an invisible null.

Examples

xx <- fitmix.simulate(100, c(0.49, 0.42, 0.09), c(0, 1, 2), c(.3, .3, .3))

## additive model, common variance, Hardy--Weinberg
fit.a <- fitmix(xx, 3, maxit = 10, restarts = 3,
                sigma.common = TRUE, p.binomial = TRUE, mu.additive = TRUE)
fitmix.plot(xx, fit.a$p, fit.a$mu, fit.a$sigma)

## general (unrestricted) fit
fit.g <- fitmix(xx, 3, maxit = 10, restarts = 3)
fitmix.plot(xx, fit.g$p, fit.g$mu, fit.g$sigma)