fix cmd check errors in sim_gs_n examples

R/sim_gs_n.R

@@ -38,7 +38,7 @@
 #' # parameters for treatment effect
 #' delay_effect_duration <- 3  # delay treatment effect in months
 #' median_col <- 9             # survival median of the control arm
-#' median_exp <- c(9, 14)      # survival median of the experimental arm (9 month for first 3 months and 18 afterwards)
+#' median_exp <- c(9, 14)      # survival median of the experimental arm
 #' dropout_rate <- 0.001
 #' fail_rate <- define_fail_rate(duration = c(delay_effect_duration, 100),
 #'                               hr = median_col / median_exp,
@@ -63,8 +63,8 @@
 #'                          min_n_overall = 200,
 #'                          min_followup = 20) |> quote()
 #'
-#' IA2
-#' The 2nd interim analysis will occur at the later of the following 3 conditions:
+#' # IA2
+#' # The 2nd interim analysis will occur at the later of the following 3 conditions:
 #' # - At least 32 months have passed since the start of the study
 #' # - At least 250 events have occurred
 #' # - At least 10 months after IA1
@@ -75,11 +75,11 @@
 #'                          max_extension_for_target_event = 34,
 #'                          min_time_after_previous_analysis = 10) |> quote()
 #'
-#'# FA
-#'The final analysis will occur at the later of the following 2 conditions:
-#'# - At least 45 months have passed since the start of the study
-#'# - At least 300 events have occurred
-#'fa <- get_analysis_date(data,
+#' # FA
+#' # The final analysis will occur at the later of the following 2 conditions:
+#' # - At least 45 months have passed since the start of the study
+#' # - At least 300 events have occurred
+#' fa <- get_analysis_date(data,
 #'                        planned_calendar_time = 45,
 #'                        target_event_overall = 350) |> quote()
 #'