Merge pull request #31 from m-muecke/any-duplicated

perf: use faster `anyDuplicated(x) > 0` instead of `any(duplicated(x))`

Author: davidruegamer

R/hmatrix.R

@@ -82,7 +82,7 @@ hmatrix <- function(time, id, x, argvals=1:ncol(x),
   x <- matrix(x, ncol=ncol(x), nrow=nrow(x))  
 
   #### check argvals and x
-  if( any(duplicated(argvals)) ){
+  if(anyDuplicated(argvals) > 0){
     stop("argvals contains duplicates.")
   } 
   if( is.unsorted(argvals) ){

R/utilityFunctions.R

@@ -1178,7 +1178,7 @@ reweightData <- function(data, argvals, vars,
     my_temp_idvars <- temp_idvars
     i <- 1
     ## add 0.1^1 to duplicates, 0.1^1 + 0.1^2 = 0.11 to triplicates, ...
-    while(any(duplicated(my_index_long))){ # loop until no more duplicates in the data  
+    while(anyDuplicated(my_index_long) > 0){ # loop until no more duplicates in the data
       my_temp_idvars[duplicated(my_index_long)] <- my_temp_idvars[duplicated(my_index_long)] + 0.1^i
       my_index_long[duplicated(my_index_long)] <- my_index_long[duplicated(my_index_long)] + 0.1^i
       i <- i + 1