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
cat.to.list.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
"cat.to.list" <- function(x, a) {
a <- as.character(a)
label <- unique(a)
out <- as.list(1:length(label))
names(out) <- label
for (k in 1:length(label)) {
out[[k]] <- x[label[k] == a]
if (length(out[[k]]) == 0)
out[[k]] <- NA
}
out
}