Fix warnings in examples

R/fit_rsp_step.R

@@ -58,7 +58,7 @@
 #' step_matrix <- fit_rsp_step(
 #'   variables = variables,
 #'   data = adrs_f,
-#'   control = c(control_logistic(), control_step(bandwidth = 0.5))
+#'   control = c(control_logistic(), control_step(bandwidth = 0.9))
 #' )
 #' dim(step_matrix)
 #' head(step_matrix)
@@ -68,7 +68,7 @@
 #' step_matrix2 <- fit_rsp_step(
 #'   variables = variables,
 #'   data = adrs_f,
-#'   control = c(control_logistic(conf_level = 0.9), control_step(bandwidth = 0.6, degree = 1))
+#'   control = c(control_logistic(conf_level = 0.9), control_step(bandwidth = NULL, degree = 1))
 #' )
 #'
 #' # Use a global constant model. This is helpful as a reference for the subgroup models.
@@ -90,7 +90,7 @@
 #' step_matrix4 <- fit_rsp_step(
 #'   variables = variables2,
 #'   data = adrs_f,
-#'   control = c(control_logistic(), control_step(bandwidth = 0.6))
+#'   control = c(control_logistic(), control_step(bandwidth = NULL))
 #' )
 #'
 #' @export

R/h_stack_by_baskets.R

@@ -25,8 +25,8 @@
 #' aag <- data.frame(
 #'   NAMVAR = c("CQ01NAM", "CQ02NAM", "SMQ01NAM", "SMQ02NAM"),
 #'   REFNAME = c(
-#'     "D.2.1.5.3/A.1.1.1.1 AESI", "X.9.9.9.9/Y.8.8.8.8 AESI",
-#'     "C.1.1.1.3/B.2.2.3.1 AESI", "C.1.1.1.3/B.3.3.3.3 AESI"
+#'     "D.2.1.5.3/A.1.1.1.1 aesi", "X.9.9.9.9/Y.8.8.8.8 aesi",
+#'     "C.1.1.1.3/B.2.2.3.1 aesi", "C.1.1.1.3/B.3.3.3.3 aesi"
 #'   ),
 #'   SCOPE = c("", "", "BROAD", "BROAD"),
 #'   stringsAsFactors = FALSE

R/response_biomarkers_subgroups.R

@@ -156,7 +156,7 @@ tabulate_rsp_biomarkers <- function(df,
 #' # Here we group the levels of `BMRKR2` manually, and we add a stratification
 #' # variable `STRATA1`. We also here use a continuous variable `EOSDY`
 #' # which is then binarized internally (response is defined as this variable
-#' # being larger than 500).
+#' # being larger than 750).
 #' df_grouped <- extract_rsp_biomarkers(
 #'   variables = list(
 #'     rsp = "EOSDY",
@@ -174,7 +174,7 @@ tabulate_rsp_biomarkers <- function(df,
 #'     )
 #'   ),
 #'   control = control_logistic(
-#'     response_definition = "I(response > 500)"
+#'     response_definition = "I(response > 750)"
 #'   )
 #' )
 #' df_grouped

R/utils_grid.R

@@ -259,6 +259,7 @@ tern_grob <- function(x) {
   x
 }
 
+#' @keywords internal
 print.ternGrob <- function(x, ...) {
   grid::grid.newpage()
   grid::grid.draw(x)