Skip to content

Commit

Permalink
The labels for the SVD application can be specified with All using th…
Browse files Browse the repository at this point in the history
…e nested option SVDLabels.
  • Loading branch information
antononcube committed Jul 19, 2013
1 parent 667626c commit 0dc936a
Showing 1 changed file with 4 additions and 2 deletions.
6 changes: 4 additions & 2 deletions AVCDecisionTreeForest.m
Original file line number Diff line number Diff line change
Expand Up @@ -200,7 +200,7 @@ Mathematica is (C) Copyright 1988-2012 Wolfram Research, Inc.
columnTypes_?VectorQ, axesArg : (All | {_Integer ..}),
nStrata_Integer,
impFunc_, {linCombMinRecs_Integer, svdRank_Integer,
cdSVDRank_Integer, svdLabels : (Automatic | _List)},
cdSVDRank_Integer, svdLabels : (All | Automatic | _List)},
preStratifyQ : (True | False)] :=

Block[{axes = axesArg, numAxes, numAvcs, numDataRecs, U, S, V, cU,
Expand All @@ -219,6 +219,8 @@ Mathematica is (C) Copyright 1988-2012 Wolfram Research, Inc.
PRINT["AVCSplitSelection:: splitting class ratio=", N[numAvcs[[1, 2]]/Length[classLabels]]];

Which[
TrueQ[svdLabels === All],
numDataRecs = dataRecs,
TrueQ[svdLabels === Automatic],
If[numAvcs[[1, 2]]/Length[classLabels] <= 1/2,
numDataRecs = Pick[dataRecs, Map[# == numAvcs[[1, 1]] &, classLabels]],
Expand Down Expand Up @@ -292,7 +294,7 @@ Mathematica is (C) Copyright 1988-2012 Wolfram Research, Inc.
columnTypes_?VectorQ, axesArg : (All | {_Integer ..}),
nStrata_Integer,
impFunc_, {linCombMinRecs_Integer, svdRank_Integer,
crSVDRank_Integer, svdLabels : (Automatic | _List)},
crSVDRank_Integer, svdLabels : (All | Automatic | _List)},
preStratifyQ : (True | False)] :=
Block[{avcs, res, axes = axesArg, numAxes, numRes = {}, numAvcs,
numDataRecs},
Expand Down

0 comments on commit 0dc936a

Please sign in to comment.