https://github.com/cran/fields
Tip revision: 7b2778b4ea77eab24528cc59cedaba09e3460fa7 authored by Doug Nychka on 22 April 2008, 00:00:00 UTC
version 4.3
version 4.3
Tip revision: 7b2778b
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)
}