Updated R wrapper and added unit tests

Author: andrewherren

NAMESPACE

@@ -66,12 +66,16 @@ export(saveBCFModelToJsonString)
 export(savePreprocessorToJsonString)
 importFrom(R6,R6Class)
 importFrom(stats,coef)
+importFrom(stats,dnorm)
 importFrom(stats,lm)
 importFrom(stats,model.matrix)
+importFrom(stats,pnorm)
 importFrom(stats,predict)
 importFrom(stats,qgamma)
+importFrom(stats,qnorm)
 importFrom(stats,resid)
 importFrom(stats,rnorm)
+importFrom(stats,runif)
 importFrom(stats,sd)
 importFrom(stats,sigma)
 importFrom(stats,var)

R/cpp11.R

@@ -252,6 +252,18 @@ forest_container_from_json_string_cpp <- function(json_string, forest_label) {
   .Call(`_stochtree_forest_container_from_json_string_cpp`, json_string, forest_label)
 }
 
+forest_merge_cpp <- function(inbound_forest_ptr, outbound_forest_ptr) {
+  invisible(.Call(`_stochtree_forest_merge_cpp`, inbound_forest_ptr, outbound_forest_ptr))
+}
+
+forest_add_constant_cpp <- function(forest_ptr, constant_value) {
+  invisible(.Call(`_stochtree_forest_add_constant_cpp`, forest_ptr, constant_value))
+}
+
+forest_multiply_constant_cpp <- function(forest_ptr, constant_multiple) {
+  invisible(.Call(`_stochtree_forest_multiply_constant_cpp`, forest_ptr, constant_multiple))
+}
+
 forest_container_append_from_json_string_cpp <- function(forest_sample_ptr, json_string, forest_label) {
   invisible(.Call(`_stochtree_forest_container_append_from_json_string_cpp`, forest_sample_ptr, json_string, forest_label))
 }

R/forest.R

@@ -718,7 +718,7 @@ Forest <- R6::R6Class(
         #' Return constant leaf status of trees in a `Forest` object
         #' @return `TRUE` if leaves are constant, `FALSE` otherwise
         is_constant_leaf = function() {
-            return(is_constant_leaf_active_forest_cpp(self$forest_ptr))
+            return(is_leaf_constant_forest_container_cpp(self$forest_ptr))
         }, 
 
         #' @description