# \donttest{
# Load example data
data(example_svg_data)
expr <- example_svg_data$logcounts[1:5, ]
coords <- example_svg_data$spatial_coords
# Requires spatstat packages
if (requireNamespace("spatstat.geom", quietly = TRUE) &&
requireNamespace("spatstat.explore", quietly = TRUE)) {
results <- CalSVG_MarkVario(expr, coords, verbose = FALSE)
head(results)
}
# }
Run the code above in your browser using DataLab