library(testthat)
library(SUMO)  # Load your package
test_that("plot_weights runs without error", {
  output_obj <- OmixCraftHD(
     vector_features = c(4000, 3000),
     n_samples = 100,
     n_factors = 4,
     signal.samples = NULL,
     signal.features.one = NULL,
     signal.features.two = NULL,
     snr = 2.5,
     num.factor = 'multiple',
     advanced_dist = 'mixed'
     )

  expect_silent(plot_weights(output_obj, factor_num = 1, data = "omic.one", type = "scatter"))
})