regmixEM.lambda(y, x, lambda = NULL, beta = NULL, sigma = NULL, 
                k = 2, addintercept = TRUE, arbmean = TRUE,
                arbvar = TRUE, epsilon = 1e-8, maxit = 10000,
                verb = FALSE)addintercept below.lambda is simply one over the number of components.beta parameters.  Should be a pxk matrix,
    where p is the number of columns of x and k is number of components.
    If NULL, then beta has uniform standard normal entries.  If both
    lambda alambda, beta, and sigma are NULL, then number of components is detelambda, beta,
    and sigma are NULL.betas).sigma.regmixEM.lambda returns a list of class mixEM with items:addintercept = TRUE).arbmean = FALSE, then only the smallest standard
   deviation is returned. See scale below.arbmean = FALSE, then the scale factor for the component standard deviations is returned.
   Otherwise, this is omitted from the output.regmixEM.loc.regmixEM.loc## Compare a 2-component and 3-component fit to NOdata.
data(NOdata)
attach(NOdata)
set.seed(100)
out1 <- regmixEM.lambda(Equivalence, NO)
out2 <- regmixEM.lambda(Equivalence, NO, k = 3)
c(out1$loglik, out2$loglik)Run the code above in your browser using DataLab