## An example with the bullsEye data set
data(bullsEye)
data(bullsEye.cat)
## with default values
ldata <- list(bullsEye, bullsEye.cat)
modelcont <- list(modelName="kmm_pk_s", dim = 10, kernelName="Gaussian")
modelcat <- list(modelName="kmm_pk_s", dim = 20, kernelName="Hamming", kernelParameters = c(0.6))
lmodels <- list( modelcont, modelcat)
model <- kmmMixedData(ldata, lmodels, nbCluster=2:5, strategy = clusterFastStrategy())
## get summary
summary(model)
if (FALSE) {
## use graphics functions
plot(model)
}
Run the code above in your browser using DataLab