diff --git a/R/gs_design_ahr.R b/R/gs_design_ahr.R index 75095726..0ed9603e 100644 --- a/R/gs_design_ahr.R +++ b/R/gs_design_ahr.R @@ -236,7 +236,7 @@ gs_design_ahr <- function( if ((length(analysis_time) > 1) && (length(info_frac) > 1) && (length(info_frac) != length(analysis_time))) { stop("gs_design_ahr() info_frac and analysis_time must have the same length if both have length > 1.") } - if(all(fail_rate$hr == 1)){ + if(all(fail_rate$hr == 1)) { stop("gs_design_ahr() hr must not be equal to 1 throughout the study as this is the null hypothesis.") } diff --git a/R/gs_design_combo.R b/R/gs_design_combo.R index 0d831986..bf4ecf1d 100644 --- a/R/gs_design_combo.R +++ b/R/gs_design_combo.R @@ -178,7 +178,7 @@ gs_design_combo <- function( two_sided <- TRUE } - if(all(fail_rate$hr == 1)){ + if(all(fail_rate$hr == 1)) { stop("gs_design_combo() hr must not be equal to 1 throughout the study as this is the null hypothesis.") } diff --git a/R/gs_design_wlr.R b/R/gs_design_wlr.R index 916b3b30..4d588e13 100644 --- a/R/gs_design_wlr.R +++ b/R/gs_design_wlr.R @@ -152,7 +152,7 @@ gs_design_wlr <- function( if (max(info_frac) != 1) stop(msg) msg <- "gs_design_wlr(): info_frac and analysis_time must have the same length if both have length > 1" if ((length(analysis_time) > 1) && (length(info_frac) > 1) && (length(info_frac) != length(analysis_time))) stop(msg) - if(all(fail_rate$hr == 1)){ + if(all(fail_rate$hr == 1)) { stop("gs_design_wlr() hr must not be equal to 1 throughout the study as this is the null hypothesis.") } # get the info_scale