tests/testthat/test-synsNMF.R

In musclesyneRgies: Extract Muscle Synergies from Electromyography

test_that("NMF produces correct class and output", {
  data(FILT_EMG)

  SYNS_fixed <- lapply(FILT_EMG, musclesyneRgies::synsNMF, fixed_syns = 2)

  class(FILT_EMG[[1]]) <- "badclass"

  expect_error(musclesyneRgies::synsNMF(FILT_EMG[[1]]))

  # Class
  expect_s3_class(SYNS_fixed$ID0012_TW_01, "musclesyneRgies")

  # Rank
  expect_equal(SYNS_fixed$ID0012_TW_01$syns, 2)

  # Number of muscles
  expect_equal(nrow(SYNS_fixed$ID0012_TW_01$M), 13)

  # Classification
  expect_equal(SYNS_fixed$ID0012_TW_01$classification, "none")

  # Rank type
  expect_equal(SYNS_fixed$ID0012_TW_01$rank_type, "fixed")
})