Sets of colours and symbols for cluster plotting
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
i |
integer. Length of output vector (number of clusters). |
seed |
integer. Random seed. |
max |
between 0 and 1. Maximum grey scale value, see
|
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",...
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])Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.