Nothing
test_that('Test data(kili)', {
data(kili)
expect_is(kili, 'SARSet')
expect_true(master@data@inmemory)
expect_true(slave@data@inmemory)
})
test_that('Test data(kili) angles', {
anglesKili <- angles(kili)
expect_is(anglesKili, 'list')
expect_false(length(anglesKili)==0)
expect_is(angles(master), 'SpatialPointsDataFrame')
#expect_is(angles(master, interpolate=T, aggregate.fact=1000), 'SpatialPointsDataFrame')
})
test_that('Test data(kili) anglesDif', {
expect_error(anglesDif(master, slave))
#expect_is(anglesDif(master, slave, interpolate=T, aggregate.fact=1000), 'SpatialPointsDataFrame')
})
test_that('Test data(kili) disparityMapExpected', {
expect_error(disparityMapExpected(master, slave))
#expect_is(disparityMapExpected(master, slave, interpolate=T, aggregate.fact=1000), 'SpatialPointsDataFrame')
})
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.