Remove redundant condition (#1413)

erikcs · web-flow · commit f79679d72124 · 2024-05-05T09:32:47.000-07:00
diff --git a/r-package/grf/R/rank_average_treatment.R b/r-package/grf/R/rank_average_treatment.R
@@ -532,7 +532,7 @@ estimate_rate <- function(data, indices, q, wtd.mean) {
 boot_grf <- function(data, statistic, R, clusters, half.sample = TRUE, ...) {
   samples.by.cluster <- split(seq_along(clusters), clusters)
   n <- length(samples.by.cluster) # number of clusters
-  if (n <= 1 || (half.sample && floor(n / 2) < 1)) {
+  if (n <= 1) {
     stop("Cannot bootstrap sample with only one effective unit.")
   }
   if (half.sample) {

Original file line number	Diff line number	Diff line change
`@@ -532,7 +532,7 @@ estimate_rate <- function(data, indices, q, wtd.mean) {`
`532`	`532`	`boot_grf <- function(data, statistic, R, clusters, half.sample = TRUE, ...) {`
`533`	`533`	`samples.by.cluster <- split(seq_along(clusters), clusters)`
`534`	`534`	`n <- length(samples.by.cluster) # number of clusters`
`535`		`- if (n <= 1 \|\| (half.sample && floor(n / 2) < 1)) {`
	`535`	`+ if (n <= 1) {`
`536`	`536`	`stop("Cannot bootstrap sample with only one effective unit.")`
`537`	`537`	`}`
`538`	`538`	`if (half.sample) {`