#crab data set with all the observations used as training
pprf.crab <- PPforest(data = crab, std =TRUE, class = 'Type',
size.tr = 1, m = 200, size.p = .5, PPmethod = 'LDA')
node_data(ppf = pprf.crab, tr = 1)
Run the code above in your browser using DataLab