library (rpart)  # Carrega o pacote
library (base)   # Muito provavelmente não precisará instalar este pacote, já instala automático

data(kyphosis, package="rpart") # Ativa a base de dados do pacote, no Caso kyphosis
print(kyphosis) # Imprime na tela a base de dados

fit <- rpart(Kyphosis ~ Age + Number + Start, data=kyphosis) # Processa o Modelo Árvore de decisão
summary (fit) # Apresenta informações dos Parâmetros do Modelo

# Faz o Gráfico
plot(fit)
text(fit, use.n=TRUE) 

# Calcula as probabilidade preditas bem como as suas respectivas classificação
# em seguida apresenta os resultados para cada observação

Prob <- predict(fit, type = c ("prob"))
Classe <- predict(fit, type = c ("class"))
cbind(kyphosis, Prob, Classe)

# Maiores informações deste pacote acesse:
# http://cran.r-project.org/web/packages/rpart/rpart.pdf