test_that("All embeddings are generated correctly", {
  input_pca <- matrix(stats::rnorm(300, mean = 20, sd = 2), ncol = 10)
  result <- scStability::createEmb(input_pca, n_runs = 20)
  expect_equal(length(result), 20)
  expect_equal(dim(result[[1]]), c(30, 2))
})