# NOT RUN {
data(som.bcl)
clusterPlotSOMmap(som.bcl, pchs = 1)
idx = unique(som.bcl$unit.classif[1:80])
bgcols <- c("gray", "lightgreen")
index = rep(1, 5 * 5)
index[idx] = 2
bgcol = bgcols[as.integer(index)]
label = c()
for (i in 1:length(idx)) {
label[i] = length(which(som.bcl$unit.classif[1:80] == idx[i]))
}
clusterPlotSOMmap(som.bcl, index = idx, label = label, bgcol = bgcol)
# }
Run the code above in your browser using DataLab