From 1e2b9d304f2cbdad7c50c145cf5275649a88b907 Mon Sep 17 00:00:00 2001 From: Anton Antonov Date: Sun, 21 Jul 2013 15:22:13 -0400 Subject: [PATCH] Sorting of the randomly selected axes. --- AVCDecisionTreeForest.m | 14 ++++++++------ 1 file changed, 8 insertions(+), 6 deletions(-) diff --git a/AVCDecisionTreeForest.m b/AVCDecisionTreeForest.m index bf0cf4c9..fd98330d 100644 --- a/AVCDecisionTreeForest.m +++ b/AVCDecisionTreeForest.m @@ -322,12 +322,14 @@ Mathematica is (C) Copyright 1988-2012 Wolfram Research, Inc. Clear[RandomAxes] RandomAxes[nDimensions_] := - Which[ - nDimensions > 10, RandomSample[Range[nDimensions], 5], - nDimensions > 5, RandomSample[Range[nDimensions], 3], - nDimensions > 2, RandomSample[Range[nDimensions], 2], - True, Range[nDimensions] - ]; + Sort[ + Which[ + nDimensions > 10, RandomSample[Range[nDimensions], 5], + nDimensions > 5, RandomSample[Range[nDimensions], 3], + nDimensions > 2, RandomSample[Range[nDimensions], 2], + True, Range[nDimensions] + ] + ]; Clear[BuildDecisionTree] Options[BuildDecisionTree] = {"RandomAxes" -> False,