I am trying to export the tree splitting results from a rpart object.  I
can visualize the splits by printing the rpart object (shown below for my
rpart object, model.prune).  However, this printed result is not a
dataframe and I am unable to export this information in .csv format.

I can view the frame details (model.prune$frame), but this object does not
contain the split information at each branch.  If possible, I'd just like
to append the branch splits to the model.prune$frame and then export the
dataframe.

Thanks in advance for any help.

Jared


> model.prune
n= 1922

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

 1) root 1922 5452.32300 1.4621220
   2) bio_1_mn< 1214.297 970  758.84340 0.7968852 *
   3) bio_1_mn>=1214.297 952 3826.83500 2.1399370
     6) bio_5_mn>=3245.887 529 2049.01000 1.7504010
      12) bio_1_mn>=1973.455 104  141.46200 0.9568643 *
      13) bio_1_mn< 1973.455 425 1826.03300 1.9445840
        26) bio_4_mn>=63758.58 384 1020.37200 1.7541630 *
        27) bio_4_mn< 63758.58 41  661.32810 3.7280420
          54) m44_04_mn>=37.7683 28  124.25710 2.3292560 *
          55) m44_04_mn< 37.7683 13  364.28790 6.7408120 *
     7) bio_5_mn< 3245.887 423 1597.17100 2.6270880
      14) bio_2_mn< 1168.864 115  215.84920 1.5978740 *
      15) bio_2_mn>=1168.864 308 1214.02100 3.0113720
        30) bio_10_mn< 2395.813 90  218.46630 2.0642790 *
        31) bio_10_mn>=2395.813 218  881.49820 3.4023730
          62) elev_min< 14.5 30   71.33518 1.9906610 *
          63) elev_min>=14.5 188  740.83450 3.6276460 *

outfile <-paste(directory,"CaRegTree_Test.csv",sep="")
write.csv(model.prune,file=outfile, quote = FALSE, row.names = FALSE)

# which will result in:

Error in as.data.frame.default(x[[i]], optional = TRUE, stringsAsFactors =
stringsAsFactors) :
  cannot coerce class '"rpart"' into a data.frame

	[[alternative HTML version deleted]]

