swh:1:snp:33a53053e50f7abe7d281cc0c803be827debf4a3
Tip revision: 48d0b1457c4d7f60524adbe61de8b574c2eb3cc6 authored by Edzer Pebesma on 22 June 2012, 17:21:36 UTC
version 1.0-12
version 1.0-12
Tip revision: 48d0b14
print.variogramModel.R
# $Id: print.variogramModel.q,v 1.5 2009-02-20 13:53:38 edzer Exp $
"print.variogramModel" =
function (x, ...)
{
df = data.frame(x)
shape.models = c("Mat", "Exc", "Cau", "Ste")
if (!any(match(df[, "model"], shape.models, nomatch=0)))
df$kappa = NULL
if (!any(df[, "anis2"] != 1)) {
df$anis2 = NULL
df$ang2 = NULL
df$ang3 = NULL
if (!any(df[, "anis1"] != 1)) {
df$anis1 = NULL
df$ang1 = NULL
}
}
if (any(match(df[, "model"], "Tab", nomatch=0))) {
df$maxdist = df$range
df$range = NULL
print(df, ...)
cat("covariance table:\n")
tab = attr(x, "table")
idx = round(seq(1, length(tab), length=6))
print(tab[idx])
} else
print(df, ...)
invisible(x)
}