Nothing
context("Wave Filters - Unit Tests")
test_that("QMF is correct", {
g = as.matrix(rep(1/sqrt(2),2))
h = as.matrix(c(1/sqrt(2), -1/sqrt(2)))
expect_equal(qmf(g), h )
expect_equal(qmf(g, inverse=TRUE), h )
expect_equal(qmf(g, inverse=FALSE), as.matrix(rev(h)) )
})
test_that("Haar filter is accurate", {
g = as.matrix(rep(1/sqrt(2),2))
h = as.matrix(c(1/sqrt(2), -1/sqrt(2)))
wf.haar = list( as.matrix(2.0), #L
h, #h
g) #g
expect_equal(haar_filter(), wf.haar, check.attributes = FALSE)
expect_equal(select_filter(filter_name = "haar"), wf.haar, check.attributes = FALSE)
})
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.