# NOT RUN {
k <- 2
n <- 4
A <- matrix(1:(k*n),n,k, byrow = TRUE)
X <- rbind(A,A,A)
x <- A[1,]
## should be 3:
getReplicates(x,X)
## U has unique entries
U <- X[!duplicated(X), ]
## should be 1:
getReplicates(x,U)
# }
Run the code above in your browser using DataLab