data(cepha)
gr <- somgrid(3,3, "hexagonal")
set.seed(7)
x <- wccsom(cepha$patterns, grid=gr, trwidth=20, rlen=100)
wccs1 <- wccmap(x, cepha$patterns[1,])
par(mfrow=c(1,2))
plot(x, "property", property = wccs1, main="Unit similarities to object 1")
plot(x, "property", property = wccs1,
main="Unit similarities to object 1", zlim=c(0.96, 1))
Run the code above in your browser using DataLab