R/plot.R

#' Plot function for longRPart2
#'
#' @param x A model from lrp.
#' @param ... Other arguments.
#' @method plot lrp
#' @export

plot.lrp <- function (x, ...){

  rp = x$rpart_out

  node.fun1 <- function(x, labs, digits, varlen)
  {
    paste("dev", round(summary(x)$frame$dev,2))
  }

  rpart.plot::rpart.plot(rp,nn=T,node.fun=node.fun1)
}

Try the longRPart2 package in your browser

Any scripts or data that you put into this service are public.

longRPart2 documentation built on May 2, 2019, 8:30 a.m.