Nothing
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)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.