R/ddst.base.cos.R

`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 29, 2017, 9:34 p.m.