R/jpolyval.R

Defines functions `jpolyval`

`jpolyval` <-
function(p,x)
  {
    nc = length(p);
    ex = rev(seq(0, nc-1))
    y = rep(0, length(x))
    for( i in 1:length(x))
    y[i] = sum(p * x[i]^ex)
    
    return(y)
  }

Try the RSEIS package in your browser

Any scripts or data that you put into this service are public.

RSEIS documentation built on Aug. 19, 2023, 5:07 p.m.