R/ScaleCurveClass.R

#' @rdname getPlot-methods
#' @export
setMethod("getPlot", "ScaleCurveList", function(object) {
  p <- .getPlot(object)
  p <- p + ggtitle(object[[1]]@title)
  p <- p + ylab("Volume")
  p <- p + xlab("1 - alpha")
  return(p)
})
zzawadz/DepthProc documentation built on Feb. 4, 2022, 8:39 p.m.