R/makepostree.R

In nodeHarvest: Node Harvest for Regression and Classification

makepostree <-
function(treel,node,level){
  treel[node,"level"] <- level
  if(treel[node,"status"]== -3){
    ld <- treel[node,"left daughter"]
    rd <- treel[node,"right daughter"]
    treel <- makepostree(treel,ld,level+1)
    treel <- makepostree(treel,rd,level+1)
  }
  return(treel)
}