swh:1:snp:33a53053e50f7abe7d281cc0c803be827debf4a3
Tip revision: 0a1f4ede1b821f3bccb3df81fb5a5d8c530474dd authored by Edzer J. Pebesma on 07 May 2008, 01:17:14 UTC
version 0.9-46
version 0.9-46
Tip revision: 0a1f4ed
spplot.R
spplot.vcov = function(x, ...) {
basenames = sub(".pred", "", names(x)[grep(".pred",names(x))])
n = length(basenames)
names = NULL
skip = NULL
for (i in 1:n) {
skp = rep(TRUE, n)
pos = 1
if (i > 1) {
for (j in 1:(i-1)) {
names = c(names, paste("cov", basenames[j], basenames[i], sep = "."))
skp[pos] = FALSE
pos = pos + 1
}
}
names = c(names, paste(basenames[i], ".var", sep = ""))
skp[pos] = FALSE
skip = c(skip, skp)
}
spplot(x, names, skip = skip, layout = c(n,n), as.table = TRUE, ...)
}