R/wave.trans.R

wave.trans <- function(x, method="modwt",wf="la8",n.levels=4,boundary="periodic")
{

  if(method == "dwt"){
    x.wt <- dwt(x,wf,n.levels,boundary)
  }else{
    x.wt <- modwt(x,wf,n.levels,boundary)
  }

  x.bw <- brick.wall(x.wt,wf,method)
  return(x.bw)
}

Try the brainwaver package in your browser

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

brainwaver documentation built on May 2, 2019, 10:23 a.m.