data cardata;
set sashelp.cars;
if MSRP > 40000 then luxary = '1';
else luxary='0';
run;
ods graphics on;
proc hpsplit data=cardata;
class luxary Origin DriveTrain;
model luxary (event='1') =
EngineSize HorsePower Weight DriveTrain Origin;
grow entropy;
run;