[R] Party extract BinaryTree from cforest?

[Chris]

I found an internal workaround to this to support printing and plot type simple,

tt<-party:::prettytree(cf at ensemble[[1]], names(cf at data at get("input")))
> npt <- new("BinaryTree")
> npt at tree<-tt
> plot(npt)
Error in terminal_panel(<S4 object of class "BinaryTree">) :
  âctreeobjâ is not a regression tree
> plot(npt, type="simple")

Any additional help is appreciated.