# NOT RUN {
{
require(raster)
# load example probability image
file <- system.file('extdata', 'probabilities.tif', package="rsMove")
p <- raster(file) > 0.5
# land cover map
lc <- raster(system.file('extdata', 'landCover.tif', package="rsMove"))
# segment probabilities
pt <- plausibilityTest(p, lc)
# show plot
pt$relative.plot
# see relative sample count
head(pt$relative.count)
}
# }
Run the code above in your browser using DataLab