R/first_derivative.R

Defines functions first_derivative

first_derivative=function(e, sig, h, degree, func){
  gauss=gauss.quad(degree,c(0,1/h))
  nodes=gauss$pt
  weight=gauss$wt
  re=pi^(-1)*t(sapply(nodes,func,e,sig))%*%weight
  return(re)
}

Try the MECfda package in your browser

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

MECfda documentation built on April 3, 2025, 10:07 p.m.