# NOT RUN {
data(iris)
## set data frame and labels
df <- subset(iris,select=-Species)
labels <- subset(iris,select=Species)
## build a map
m <- map(df,labels,xdim=15,ydim=10,train=10000)
## compute a summary object and display it
s <- summary(m,verb=FALSE)
s
# }
Run the code above in your browser using DataLab