Updated R examples to avoid lines running over 100 characters

StochasticTree · Jan 16, 2025 · 324dcf3 · 324dcf3
1 parent f412ee8
commit 324dcf3
Show file tree

Hide file tree

Showing 5 changed files with 14 additions and 10 deletions.
diff --git a/R/bart.R b/R/bart.R
@@ -1015,9 +1015,9 @@ predict.bartmodel <- function(bart, X_test, W_test = NULL, group_ids_test = NULL
 #' rfx_basis_train <- rfx_basis[train_inds,]
 #' rfx_term_test <- rfx_term[test_inds]
 #' rfx_term_train <- rfx_term[train_inds]
-#' bart_model <- bart(X_train = X_train, y_train = y_train, 
-#'                    group_ids_train = group_ids_train, rfx_basis_train = rfx_basis_train, 
-#'                    X_test = X_test, group_ids_test = group_ids_test, rfx_basis_test = rfx_basis_test, 
+#' bart_model <- bart(X_train = X_train, y_train = y_train, X_test = X_test, 
+#'                    group_ids_train = group_ids_train, group_ids_test = group_ids_test, 
+#'                    rfx_basis_train = rfx_basis_train, rfx_basis_test = rfx_basis_test, 
 #'                    num_gfr = 100, num_burnin = 0, num_mcmc = 100)
 #' rfx_samples <- getRandomEffectSamples(bart_model)
 getRandomEffectSamples.bartmodel <- function(object, ...){

diff --git a/R/utils.R b/R/utils.R
@@ -646,7 +646,8 @@ oneHotEncode <- function(x_input, unique_levels) {
 #' @export
 #'
 #' @examples
-#' x <- c("1. Strongly disagree", "3. Neither agree nor disagree", "2. Disagree", "4. Agree", "3. Neither agree nor disagree", "5. Strongly agree", "4. Agree")
+#' x <- c("1. Strongly disagree", "3. Neither agree nor disagree", "2. Disagree", 
+#'        "4. Agree", "3. Neither agree nor disagree", "5. Strongly agree", "4. Agree")
 #' preprocess_list <- orderedCatInitializeAndPreprocess(x)
 #' x_preprocessed <- preprocess_list$x_preprocessed
 orderedCatInitializeAndPreprocess <- function(x_input) {
@@ -679,7 +680,8 @@ orderedCatInitializeAndPreprocess <- function(x_input) {
 #' @export
 #'
 #' @examples
-#' x_levels <- c("1. Strongly disagree", "2. Disagree", "3. Neither agree nor disagree", 
+#' x_levels <- c("1. Strongly disagree", "2. Disagree", 
+#'               "3. Neither agree nor disagree", 
 #'               "4. Agree", "5. Strongly agree")
 #' x <- c("1. Strongly disagree", "3. Neither agree nor disagree", "2. Disagree", 
 #'        "4. Agree", "3. Neither agree nor disagree", "5. Strongly agree", "4. Agree")

diff --git a/man/getRandomEffectSamples.bartmodel.Rd b/man/getRandomEffectSamples.bartmodel.Rd
diff --git a/man/orderedCatInitializeAndPreprocess.Rd b/man/orderedCatInitializeAndPreprocess.Rd
diff --git a/man/orderedCatPreprocess.Rd b/man/orderedCatPreprocess.Rd