`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
`grey`

(close to 1 is bright).

`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",...

# NOT RUN { 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]) # }