FloSchuberth
diff --git a/‎R/postestimate_verify.R‎
Lines changed: 1 addition & 1 deletion b/‎R/postestimate_verify.R‎
Lines changed: 1 addition & 1 deletion
@@ -145,7 +145,7 @@ verify <- function(.object){
       "UniqueLoading" = all(x2$Unique_loading_estimates[indicator_c] == 0)
     )
 
-    stat["6"] <- !any(zeroness)
+    stat["6"] <- !all(zeroness)
 
     class(stat) <- "cSEMVerify"
     stat
Original file line number	Diff line number	Diff line change
`@@ -145,7 +145,7 @@ verify <- function(.object){`
`145`	`145`	`"UniqueLoading" = all(x2$Unique_loading_estimates[indicator_c] == 0)`
`146`	`146`	`)`
`147`	`147`
`148`		`- stat["6"] <- !any(zeroness)`
	`148`	`+ stat["6"] <- !all(zeroness)`
`149`	`149`
`150`	`150`	`class(stat) <- "cSEMVerify"`
`151`	`151`	`stat`