https://github.com/cran/fields
Tip revision: ce722edae3c1b9e1af2985ce3500b11058facf0e authored by Doug Nychka on 24 August 2006, 01:46:17 UTC
version 3.04
version 3.04
Tip revision: ce722ed
cat.matrix.R
"cat.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))
}