https://github.com/cran/fields
Tip revision: 6c8b30169bba182a68765ee3cb9b4e2ef7d38332 authored by Doug Nychka on 16 November 2011, 00:00:00 UTC
version 6.6.3
version 6.6.3
Tip revision: 6c8b301
fields.duplicated.matrix.R
# fields, Tools for spatial data
# Copyright 2004-2011, Institute for Mathematics Applied Geosciences
# University Corporation for Atmospheric Research
# Licensed under the GPL -- www.gpl.org/licenses/gpl.html
"fields.duplicated.matrix" <- function(mat, digits = 8) {
nc <- ncol(mat)
temp <- matrix(match(c(signif(mat, digits)), unique(c(signif(mat,
digits)))), ncol = nc)
temp2 <- format(temp[, 1])
if (nc > 1) {
for (k in 2:nc) {
temp2 <- paste(temp2, temp[, k], sep = "X")
}
}
match(temp2, unique(temp2))
}