Error in `simulate_spatial_data(n_spots = 100, n_genes = 50, n_svg = 10, seed = 42)`: unused argument (seed = 42)

# These tests verify simulate_spatial_data and related functions
test_that("simulate_spatial_data returns correct structure", {
test_that("simulate_spatial_data returns correct dimensions", {
# n_spots may differ slightly due to grid generation
expect_true(ncol(sim$counts) >= n_spots * 0.9)
test_that("simulate_spatial_data creates correct number of SVGs", {
test_that("simulate_spatial_data generates valid counts", {
# Counts should be non-negative integers
test_that("different grid types work correctly", {
for (grid in c("hexagonal", "square", "random")) {
test_that("different pattern types are assigned correctly", {
pattern_types = c("gradient", "hotspot", "periodic", "cluster"),
# Should have some genes with each pattern type
sim1 <- simulate_spatial_data(n_spots = 50, n_genes = 20, n_svg = 5, seed = 123)
sim2 <- simulate_spatial_data(n_spots = 50, n_genes = 20, n_svg = 5, seed = 123)

"simulate_spatial_data creates correct number of SVGs"
"different pattern types are assigned correctly"

Error in `simulate_spatial_data(n_spots = n_spots, n_genes = n_genes, n_svg = 10, seed = 42)`: unused argument (seed = 42)

Error in `simulate_spatial_data(n_spots = 100, n_genes = 50, n_svg = n_svg, seed = 42)`: unused argument (seed = 42)

simulate_spatial_data creates correct number of SVGs

Error in `simulate_spatial_data(n_spots = 50, n_genes = 20, n_svg = 5, grid_type = grid, seed = 42)`: unused argument (seed = 42)

Error in `simulate_spatial_data(n_spots = 100, n_genes = 50, n_svg = 20, pattern_types = c("gradient", "hotspot", "periodic", "cluster"), seed = 42)`: unused argument (seed = 42)

different pattern types are assigned correctly

Error in `simulate_spatial_data(n_spots = 50, n_genes = 20, n_svg = 5, seed = 123)`: unused argument (seed = 123)