https://github.com/cran/mlegp
Tip revision: 95bb84eb250c116201a2115cb2755a8aeb4df479 authored by Garrett M. Dancik on 10 December 2012, 00:00:00 UTC
version 3.1.3
version 3.1.3
Tip revision: 95bb84e
anyReps.R
`anyReps` <-
function(X) {
X = as.matrix(X)
for (i in 1:(dim(X)[1]-1)) {
for (j in (i+1):dim(X)[1]) {
if (identical(X[i,], X[j,])) return (TRUE)
}
}
return (FALSE)
}