Fixing up error checking for argument sgp.quantiles

dbetebenner · dbetebenner · commit 743932318ba3 · 2025-05-12T13:54:33.000-04:00
diff --git a/R/studentGrowthPercentiles.R b/R/studentGrowthPercentiles.R
@@ -930,7 +930,7 @@ function(panel.data,         ## REQUIRED
 		sgp.quantiles.labels <- NULL
 	}
 	if (is.numeric(sgp.quantiles)) {
-		if (!(all(sgp.quantiles > 0 && sgp.quantiles < 1))) {
+		if (!(all(sgp.quantiles > 0) & all(sgp.quantiles < 1))) {
 			stop("Specify sgp.quantiles as as a vector of probabilities between 0 and 1.")
 		}
 		taus <- .create_taus(sgp.quantiles)

Original file line number	Diff line number	Diff line change
`@@ -930,7 +930,7 @@ function(panel.data, ## REQUIRED`
`930`	`930`	`sgp.quantiles.labels <- NULL`
`931`	`931`	`}`
`932`	`932`	`if (is.numeric(sgp.quantiles)) {`
`933`		`- if (!(all(sgp.quantiles > 0 && sgp.quantiles < 1))) {`
	`933`	`+ if (!(all(sgp.quantiles > 0) & all(sgp.quantiles < 1))) {`
`934`	`934`	`stop("Specify sgp.quantiles as as a vector of probabilities between 0 and 1.")`
`935`	`935`	`}`
`936`	`936`	`taus <- .create_taus(sgp.quantiles)`