[R] rpart node number

[Chua Siang Li]

   Hello there.  I have a tree with only 13 nodes.  See my results below.  How
   do I get node number that is up to 33?  Also, what happen to the missing
   node number less than 13?
   >  rpartModel  <-  rpart(y~., data=data.frame(y=y,x=x),method="anova",
   cp=0.005,
   +                     minsplit=100, minbucket=50, maxdepth=5)
   > rpartModel
   n= 1085

   node), split, n, deviance, yval
         * denotes terminal node

    1) root 1085 1238057.00 -12.5980000
      2) x.Incoterm=CFR,CIF,DDU,EXE,EXS,LTD 1023  864858.40 -16.9064800
        4) x.Market.Price< 1727.5 824  627561.90 -22.5797100
          8) x.Market.Price>=1345 625  349977.00 -31.6986700
           16) x.Market.Price>=1602.5 177  152379.10 -43.5454200
             32) x.Market.Price< 1647.5 50   14276.83 -74.3530000 *
             33) x.Market.Price>=1647.5 127   71963.71 -31.4164600 *
           17) x.Market.Price< 1602.5 448  162942.30 -27.0181500 *
          9) x.Market.Price< 1345 199   62383.48   6.0602510
           18) x.Market.Price>=1322.5 121   37167.00   0.6363636 *
           19) x.Market.Price< 1322.5 78   16134.83  14.4742300 *
        5) x.Market.Price>=1727.5 199  100960.60   6.5846730 *
      3) x.Incoterm=DDP 62   40874.25  58.4919400 *
   How do I get the node number printed only for the terminal nodes?
   >plot(rpartModel,uniform=T,branch=1,compress=T,margin=0.1)
   >text(rpartModel,pretty=1,all=T,use.n=T,cex=.6)
   Thanks.
   ----
   Chua Siang Li
   Consultant - Operations Research
   Acceval Pte Ltd
   Tel: 6297 8740
   Email: siang.li.chua at acceval-intl.com
   Website: www.acceval-intl.com
   This message and any attachments (the "message"...{{dropped:13}}