fix docs/exports

NAMESPACE

@@ -11,6 +11,8 @@ S3method(print,deforest.ranger)
 S3method(print,ranger)
 S3method(print,ranger.forest)
 S3method(print,ranger.prediction)
+S3method(str,ranger)
+S3method(str,ranger.forest)
 S3method(timepoints,ranger)
 S3method(timepoints,ranger.prediction)
 export(csrf)

R/hshrink.R

@@ -39,6 +39,9 @@
 #' @return The ranger object is modified in-place. 
 #'
 #' @examples
+#' ## Hierarchical shrinkage for a probablity forest
+#' rf <- ranger(Species ~ ., iris, node.stats = TRUE, probability = TRUE)
+#' hshrink(rf, lambda = 5)
 ##' @references
 ##' \itemize{
 ##'   \item Agarwal, A., Tan, Y.S., Ronen, O., Singh, C. & Yu, B. (2022). Hierarchical Shrinkage: Improving the accuracy and interpretability of tree-based models. Proceedings of the 39th International Conference on Machine Learning, PMLR 162:111-135.

R/print.R

@@ -103,11 +103,13 @@ print.ranger.prediction <- function(x, ...) {
   }
 }
 
+##' @export
 str.ranger.forest <- function(object, max.level = 2, ...) {
   class(object) <- "list"
   str(object, max.level = max.level, ...)
 }
 
+##' @export
 str.ranger <- function(object, max.level = 2, ...) {
   class(object) <- "list"
   str(object, max.level = max.level, ...)