Style code (GHA)

Author: guangguangzai

R/generate_event_cc.R

@@ -32,20 +32,19 @@
 #'
 #' #----------------------Example of two IAs and FA
 #' event_data <- data.frame(
-#'Population = c("Experimental 1", "Experimental 2", "Experimental 3", "Control"),
-#'IA1 = c(70, 75, 80, 85),  # First Interim Analysis values indicating the number of events observed in each group
-#'IA2 = c(90, 95, 100, 105), # Second Interim Analysis values indicating the number of events observed in each group
-#'FA = c(135, 150, 165, 170) 
-#')
+#'   Population = c("Experimental 1", "Experimental 2", "Experimental 3", "Control"),
+#'   IA1 = c(70, 75, 80, 85), # First Interim Analysis values indicating the number of events observed in each group
+#'   IA2 = c(90, 95, 100, 105), # Second Interim Analysis values indicating the number of events observed in each group
+#'   FA = c(135, 150, 165, 170)
+#' )
 #'
-#'hypothesis <- list(
-#'  H1 = "Experimental 1 vs. Control",
-#'  H2 = "Experimental 2 vs. Control",
-#'  H3 = "Experimental 1 vs. Experimental 2"
-#')
+#' hypothesis <- list(
+#'   H1 = "Experimental 1 vs. Control",
+#'   H2 = "Experimental 2 vs. Control",
+#'   H3 = "Experimental 1 vs. Experimental 2"
+#' )
 #'
-#'generate_event_table_cc(event_data, hypothesis)
-
+#' generate_event_table_cc(event_data, hypothesis)
 generate_event_table_cc <- function(event_data, hypothesis) {
   result_df <- tibble(
     one_hypothesis = integer(),

R/generate_event_ol.R

@@ -34,22 +34,22 @@
 #' )
 #'
 #' generate_event_table_ol(event_data, hypothesis)
-#' 
+#'
 #' #----------------------Example of two IAs and FA
 #' event_data <- data.frame(
-#'Population = c("Population 1", "Population 2", "Population 1 Intersection 2", "Overall population"),
-#'IA1 = c(100, 110, 80, 225), # First Interim Analysis values indicating the number of events observed in each group
-#'IA2 = c(120, 130, 90, 240), # Second Interim Analysis values indicating the number of events observed in each group
-#'FA = c(200, 220, 160, 450)
-#')
+#'   Population = c("Population 1", "Population 2", "Population 1 Intersection 2", "Overall population"),
+#'   IA1 = c(100, 110, 80, 225), # First Interim Analysis values indicating the number of events observed in each group
+#'   IA2 = c(120, 130, 90, 240), # Second Interim Analysis values indicating the number of events observed in each group
+#'   FA = c(200, 220, 160, 450)
+#' )
 #'
-#'hypothesis <- list(
-#'  H1 = "Efficacy in Population 1",
-#'  H2 = "Efficacy in Population 2",
-#'  H3 = "Efficacy in Overall population"
-#')
+#' hypothesis <- list(
+#'   H1 = "Efficacy in Population 1",
+#'   H2 = "Efficacy in Population 2",
+#'   H3 = "Efficacy in Overall population"
+#' )
 #'
-#'generate_event_table_ol(event_data, hypothesis)
+#' generate_event_table_ol(event_data, hypothesis)
 #'
 generate_event_table_ol <- function(event_data, hypothesis) {
   result_df <- tibble(
@@ -92,5 +92,3 @@ generate_event_table_ol <- function(event_data, hypothesis) {
 
   return(result_df)
 }
-
-