## for strategy
strategy <- mixmodStrategy()
show(strategy)
## for Gaussian models
gmodel <- mixmodGaussianModel()
show(gmodel)
## for multinomial models
mmodel <- mixmodMultinomialModel()
show(mmodel)
## for clustering
data(geyser)
xem <- mixmodCluster(geyser, 3)
show(xem)
## for Gaussian parameters
show(xem["bestResult"]["parameters"])
## for discriminant analysis
# start by extract 10 observations from iris data set
iris.partition <- sample(1:nrow(iris), 10)
# then run a mixmodLearn() analysis without those 10 observations
learn <- mixmodLearn(iris[-iris.partition, 1:4], iris$Species[-iris.partition])
# create a MixmodPredict to predict those 10 observations
prediction <- mixmodPredict(
data = iris[iris.partition, 1:4],
classificationRule = learn["bestResult"]
)
# show results
show(prediction)
Run the code above in your browser using DataLab