https://github.com/cran/fields
Tip revision: 8182a9a01e5ac26047a101825b76f85617a37cf8 authored by Doug Nychka on 06 February 2009, 21:36:12 UTC
version 5.02
version 5.02
Tip revision: 8182a9a
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)
}