sinc <- function(z) { ifelse(z == 0, 1, sin(pi * z)/(pi * z)) } wavelet <- function(z, k) { 2^(k/2) * sinc(2^k * z) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.