# 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)
## display marginal distribution of dimension 1
marginal(m,1)
# }
Run the code above in your browser using DataLab