simE | R Documentation |
Simulate data from a parameterized MVN mixture model.
simE(parameters, n, seed = NULL, ...)
simV(parameters, n, seed = NULL, ...)
simEII(parameters, n, seed = NULL, ...)
simVII(parameters, n, seed = NULL, ...)
simEEI(parameters, n, seed = NULL, ...)
simVEI(parameters, n, seed = NULL, ...)
simEVI(parameters, n, seed = NULL, ...)
simVVI(parameters, n, seed = NULL, ...)
simEEE(parameters, n, seed = NULL, ...)
simVEE(parameters, n, seed = NULL, ...)
simEVE(parameters, n, seed = NULL, ...)
simVVE(parameters, n, seed = NULL, ...)
simEEV(parameters, n, seed = NULL, ...)
simVEV(parameters, n, seed = NULL, ...)
simEVV(parameters, n, seed = NULL, ...)
simVVV(parameters, n, seed = NULL, ...)
parameters |
A list with the following components:
|
n |
An integer specifying the number of data points to be simulated. |
seed |
An optional integer argument to |
... |
Catches unused arguments in indirect or list calls via |
This function can be used with an indirect or list call using
do.call
, allowing the output of e.g. mstep
, em
me
, Mclust
, to be passed directly without the need
to specify individual parameters as arguments.
A matrix in which first column is the classification and the remaining
columns are the n
observations simulated from the specified MVN
mixture model.
Attributes: |
|
sim
,
Mclust
,
mstepE
,
mclustVariance
.
d <- 2
G <- 2
scale <- 1
shape <- c(1, 9)
O1 <- diag(2)
O2 <- diag(2)[,c(2,1)]
O <- array(cbind(O1,O2), c(2, 2, 2))
O
variance <- list(d= d, G = G, scale = scale, shape = shape, orientation = O)
mu <- matrix(0, d, G) ## center at the origin
simdat <- simEEV( n = 200,
parameters = list(pro=c(1,1),mean=mu,variance=variance),
seed = NULL)
cl <- simdat[,1]
sigma <- array(apply(O, 3, function(x,y) crossprod(x*y),
y = sqrt(scale*shape)), c(2,2,2))
paramList <- list(mu = mu, sigma = sigma)
coordProj( simdat, paramList = paramList, classification = cl)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.