00001 00002 /* the global header file for the `party' package */ 00003 00004 /* include R header files */ 00005 00006 #include <R.h> 00007 #include <Rmath.h> 00008 #include <Rinternals.h> 00009 #include <Rdefines.h> 00010 #include <R_ext/Applic.h> /* for dgemm */ 00011 00012 /* include private header files: this need to be restricted */ 00013 00014 #include "Classes.h" 00015 #include "Utils.h" 00016 #include "mvt.h" 00017 #include "LinearStatistic.h" 00018 #include "TestStatistic.h" 00019 #include "Distributions.h" 00020 #include "Convenience.h" 00021 #include "S3Classes.h" 00022 #include "IndependenceTest.h" 00023 #include "Splits.h" 00024 #include "Node.h" 00025 #include "Predict.h" 00026 #include "SurrogateSplits.h" 00027 #include "TreeGrow.h" 00028 00029 /* constants, basically the length of lists representing S3 classes 00030 and the position of certain elements */ 00031 00032 /* S3 list elements in `splittingNode's */ 00033 #define S3_NODEID 0 /* nodeID */ 00034 #define S3_WEIGHTS 1 /* weights */ 00035 #define S3_CRITERION 2 /* criterion */ 00036 #define S3_TERMINAL 3 /* terminal */ 00037 #define S3_PSPLIT 4 /* psplit */ 00038 #define S3_SSPLIT 5 /* ssplit */ 00039 #define S3_PREDICTION 6 /* prediction */ 00040 #define S3_LEFT 7 /* left */ 00041 #define S3_RIGHT 8 /* right */ 00042 #define NODE_LENGTH 9 /* 9 elements in total */ 00043 00044 /* S3 list elements in `criterion' element of `SplittingNode's */ 00045 #define S3_STATISTICS 0 /* statistics */ 00046 #define S3_iCRITERION 1 /* criterion */ 00047 #define S3_MAXCRITERION 2 /* max(criterion) */ 00048 #define CRITERION_LENGTH 3 /* 3 elements in total */ 00049 00050 /* S3 list elements in `orderedSplit's or `nominalSplit's */ 00051 #define S3_VARIABLEID 0 /* variableID */ 00052 #define S3_ORDERED 1 /* ordered */ 00053 #define S3_SPLITPOINT 2 /* splitpoint */ 00054 #define S3_SPLITSTATISTICS 3 /* splitstatistics */ 00055 #define S3_TOLEFT 4 /* toleft */ 00056 #define S3_TABLE 5 /* table for nominal splits */ 00057 #define SPLIT_LENGTH 6 /* 6 elements in total */ 00058 00059 /* type of test statistic */ 00060 #define MAXABS 1 00061 #define QUADFORM 2 00062 00063 /* type of criterion to be _maximized_! */ 00064 #define BONFERRONI 1 00065 #define MONTECARLO 2 00066 #define AGGREGATED 3 00067 #define UNIVARIATE 4 00068 #define TESTSTATISTIC 5