https://github.com/cran/fields
Tip revision: 56c6d241a6642cc8bd7ee1b4b209bf9888daa74c authored by Doug Nychka on 20 October 2008, 00:00:00 UTC
version 5.01
version 5.01
Tip revision: 56c6d24
evlpoly.R
# fields, Tools for spatial data
# Copyright 2004-2007, Institute for Mathematics Applied Geosciences
# University Corporation for Atmospheric Research
# Licensed under the GPL -- www.gpl.org/licenses/gpl.html
`fields.evlpoly` <-
function (x, coef)
{
# evaluates polynomial at x values with coefficients coef[i] and powers i-1
#
n <- length(x)
J<- length( coef)
results<- rep(0, n)
temp<- .Fortran("evlpoly", x=as.double(x), n=as.integer(n),
coef=as.double(coef), j=as.integer(J),
results=as.double(results),
PACKAGE = "fields")$results
return( temp)
}