R/poly.R

"gsl_poly" <- function(c_gsl, x){
  x.vec <- as.vector(x)
  attr <- attributes(x)
  jj <- .C("gsl_poly",
           as.double(c_gsl),
           as.integer(length(c_gsl)),
           as.double(x.vec),
           as.integer(length(x.vec)),
           ans=as.double(x.vec),
           PACKAGE="gsl"
           )
  ans <- jj$ans
  attributes(ans) <- attr
  return(ans)
}  

Try the gsl package in your browser

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

gsl documentation built on Feb. 16, 2023, 10:32 p.m.