
clucols
gives out a vector of different random colours.
clugrey
gives out a vector of equidistant grey scales.
clusym
is a vector of different symbols starting from "1",
"2",...
clucols(i, seed=NULL)
clugrey(i,max=0.9)
clusym
clucols
gives out a vector of different random colours.
clugrey
gives out a vector of equidistant grey scales.
clusym
is a vector of different characters starting from "1",
"2",...
integer. Length of output vector (number of clusters).
integer. Random seed.
between 0 and 1. Maximum grey scale value, see
grey
(close to 1 is bright).
Christian Hennig christian.hennig@unibo.it https://www.unibo.it/sitoweb/christian.hennig/en
set.seed(112233)
require(MASS)
require(flexmix)
data(Cars93)
Cars934 <- Cars93[,c(3,5,8,10)]
cc <-
discrete.recode(Cars934,xvarsorted=FALSE,continuous=c(2,3),discrete=c(1,4))
fcc <- flexmix(cc$data~1,k=3,
model=lcmixed(continuous=2,discrete=2,ppdim=c(6,3),diagonal=TRUE))
plot(Cars934[,c(2,3)],col=clucols(3)[fcc@cluster],pch=clusym[fcc@cluster])
Run the code above in your browser using DataLab