R/ddst.base.cos.R

Defines functions `ddst.base.cos`

`ddst.base.cos` <-
function(x, j) {
  if (j==0) 
      return(1)
  sqrt(2) * cos(pi*j*x)
}

Try the ddst package in your browser

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

ddst documentation built on May 2, 2019, 7:57 a.m.