tests/testthat/test_interactive_objectDetection.R

library(testthat)
library(biopixR)

test_that("interactive_objectDetection", {
  img <- beads
  iniv <- c(1, 2, 1, "edge")
  names(iniv) <- c("alpha", "sigma", "scale", "method")
  expect_equal(iniv, interactive_objectDetection(img, return_param = TRUE))
})

Try the biopixR package in your browser

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

biopixR documentation built on April 4, 2025, 1:07 a.m.