# NOT RUN {
## load optidigits dataset
data(optidigits)
## generate a binary partition using minimum normalised cut hyperplane
sol <- ncuth(optidigits$x)
## evaluate using success ratio
success_ratio(sol$cluster, optidigits$c)
# }
Run the code above in your browser using DataCamp Workspace