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
sreg.trace.R
"sreg.trace" <-
function(h, info)
{
N <- length(info$x)
# h <- log(lam)
temp <- (.Fortran("css",
h = as.double(h),
npoint = as.integer(N),
x = as.double(info$x),
y = as.double(rep(0, N)),
wt = as.double(1/sqrt(info$wt)),
sy = as.double(rep(0, N)),
trace = as.double(0),
diag = as.double(rep(0, N)),
cv = as.double(0),
ngrid = as.integer(0),
xg = as.double(0),
yg = as.double(0),
job = as.integer(c(3, 0, 0)),
ideriv = as.integer(0),
ierr = as.integer(0),PACKAGE="fields")$trace)
return(temp)
}