RS-19221: Fix functions not exported in #41

DESCRIPTION

@@ -51,5 +51,5 @@ Remotes:
     Displayr/rhtmlLabeledScatter,
     Displayr/rhtmlMoonPlot,
     Displayr/verbs
-RoxygenNote: 7.3.3
 Encoding: UTF-8
+Config/roxygen2/version: 8.0.0

NAMESPACE

@@ -33,6 +33,9 @@ export(LDA.fit)
 export(MachineLearning)
 export(MachineLearningEnsemble)
 export(MachineLearningMulti)
+export(OrganiseCategoricalPredictors)
+export(PredictOutcome)
+export(PredictProbabilities)
 export(Probabilities)
 export(PropensityWeights)
 export(RandomForest)

R/machinelearning.R

@@ -153,13 +153,14 @@ parametersEqual <- function(recipient, donor) {
     return(FALSE)
 }
 
-#' organiseCategoricalPredictors
+#' OrganiseCategoricalPredictors
 #'
 #' Organize information about categorical predictors in the model
 #' @param input.model The machine learning model.
 #' @param all.combo.boxes The selection of predictor values.
+#' @export
 #' @noRd
-organiseCategoricalPredictors <- function(input.model, all.combo.boxes) {
+OrganiseCategoricalPredictors <- function(input.model, all.combo.boxes) {
     estimation.data.template <- input.model$estimation.data.template
     all.variable.names <- names(estimation.data.template)
     outcome.name <- attr(estimation.data.template, "outcome.name")
@@ -210,7 +211,7 @@ organiseCategoricalPredictors <- function(input.model, all.combo.boxes) {
     return(xlevels)
 }
 
-#' predictOutcome
+#' PredictOutcome
 #'
 #' Predict the outcome for a simulator for a machine learning model.
 #' @param input.model The machine learning model.
@@ -219,7 +220,7 @@ organiseCategoricalPredictors <- function(input.model, all.combo.boxes) {
 #' @importFrom utils getS3method
 #' @export
 #' @noRd
-predictOutcome <- function(input.model, DF, is.numeric) {
+PredictOutcome <- function(input.model, DF, is.numeric) {
     vector.or.class <- if (is.numeric) "vector" else "class"
     is.cart <- inherits(input.model, "CART")
     is.lda <- inherits(input.model, "LDA")
@@ -247,15 +248,15 @@ predictOutcome <- function(input.model, DF, is.numeric) {
     as.vector(do.call(prediction.function, arguments))
 }
 
-#' predictProbabilities
+#' PredictProbabilities
 #'
 #' Predict the probabilities for a simulator for a machine learning model.
 #' @param input.model The machine learning model.
 #' @param DF The data frame containing the predictor values.
 #' @importFrom utils getS3method
 #' @export
 #' @noRd
-predictProbabilities <- function(input.model, DF) {
+PredictProbabilities <- function(input.model, DF) {
     model.classes <- class(input.model)
     if ("SupportVectorMachine" %in% model.classes) {
         svm.probs <- predict(input.model$original, newdata = DF, probability = TRUE)