Decision tree with package party

library(party)

## Warning: package 'party' was built under R version 3.5.2

## Loading required package: grid

## Loading required package: mvtnorm

## Loading required package: modeltools

## Loading required package: stats4

## Loading required package: strucchange

## Loading required package: zoo

## 
## Attaching package: 'zoo'

## The following objects are masked from 'package:base':
## 
##     as.Date, as.Date.numeric

## Loading required package: sandwich

library(dplyr)

## Warning: package 'dplyr' was built under R version 3.5.2

## 
## Attaching package: 'dplyr'

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

data("readingSkills")
head(readingSkills,3)

##   nativeSpeaker age shoeSize    score
## 1           yes   5 24.83189 32.29385
## 2           yes   6 25.95238 36.63105
## 3            no  11 30.42170 49.60593

dim(readingSkills) 

## [1] 200   4

set.seed(143)
my_data <- sample_n(readingSkills, 130, replace = FALSE) # training set
dim(my_data)

## [1] 130   4

result <- ctree(nativeSpeaker ~ age + shoeSize + score, my_data)
summary(result)

##     Length      Class       Mode 
##          1 BinaryTree         S4

plot(result)