Nothing
library(imagerExtra)
test_that("DCTdenoising",
{
notim <- 1
im <- boats
gim <- grayscale(im)
gim2 <- imrep(gim, 2) %>% imappend(., "z")
N <- 3
sdn_c <- 0.1
sdn_bad1 <- "A"
sdn_bad2 <- c(1, 1)
sdn_bad3 <- NA
sdn_bad4 <- NULL
sdn_bad5 <- -1
flag_bad1 <- 1
flag_bad2 <- NA
expect_error(DenoiseDCT(notim, sdn_c))
expect_error(DenoiseDCT(gim2, sdn_c))
expect_error(DenoiseDCT(im, sdn_c))
expect_error(DenoiseDCT(gim, sdn_bad1))
expect_error(DenoiseDCT(gim, sdn_bad2))
expect_error(DenoiseDCT(gim, sdn_bad3))
expect_error(DenoiseDCT(gim, sdn_bad4))
expect_error(DenoiseDCT(gim, sdn_bad5))
expect_error(DenoiseDCT(gim, sdn_c, flag_dct16x16 = flag_bad1))
expect_error(DenoiseDCT(gim, sdn_c, flag_dct16x16 = flag_bad2))
})
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.