library(rpart)
library(rpart.plot)
set.seed(13)


# Beispieldaten: Nominal 6 Kategorien A, B, C, D , E und F, jeder wird ein anderer
# Wert zugeordnet


daten <- data.frame(nomial = c(rep("A",20), rep("B",20), rep("C",20),
                               rep("D",20), rep("E", 20), rep("F",20)),
                    werte = c(rnorm(20,1), rnorm(20,5), rnorm(20,2), 
                              rnorm(20,10),rnorm(20,0), rnorm(20,12)))

baum <- rpart(werte ~ nomial, data=daten)

prp(baum)