data(example_svg_data)
str(example_svg_data)
# \donttest{
# Run SVG detection (requires RANN package)
if (requireNamespace("RANN", quietly = TRUE)) {
results <- CalSVG_MERINGUE(
example_svg_data$counts,
example_svg_data$spatial_coords,
verbose = FALSE
)
# Check accuracy
truth <- example_svg_data$gene_info$is_svg
detected <- results$p.adj < 0.05
print(table(truth, detected))
}
# }
Run the code above in your browser using DataLab