test_that("sky_grid_segmentation() works", {
z <- zenith_image(1000, lens())
a <- azimuth_image(z)
expect_equal(max(sky_grid_segmentation(z, a, 10)[], na.rm = TRUE),
36009)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.