# Set seed for reproducibility before calling
set.seed(42)
sim_data <- simulate_spatial_data(n_spots = 200, n_genes = 50, n_svg = 10)
str(sim_data, max.level = 1)
# \donttest{
# Use with SVG detection (requires RANN)
if (requireNamespace("RANN", quietly = TRUE)) {
results <- CalSVG_MERINGUE(sim_data$counts, sim_data$spatial_coords,
network_method = "knn", k = 10, verbose = FALSE)
}
# }
Run the code above in your browser using DataLab