fix single estimate for lorenz curve with replicate-based variance es…

…timation
ajdamico · Jan 2, 2024 · f740a91 · f740a91
1 parent c5186f7
commit f740a91
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/R/svylorenz.R b/R/svylorenz.R
@@ -475,6 +475,7 @@ svylorenz.svyrep.design <-
         )))
 
     # compute variance
+    if ( dim( qq )[1] == 1 ) qq <- t( qq )
     variance <-
       survey::svrVar(qq,
                      design$scale,