tests/testthat/test-sMLE.R

In musclesyneRgies: Extract Muscle Synergies from Electromyography

test_that("sMLE works", {
  data(primitives)

  expect_equal(
    musclesyneRgies::sMLE(primitives,
      mean_period = 100,
      future_pts = 300,
      norm = "z",
      pts = 50
    )$sMLE,
    expected = 0.26,
    tolerance = 0.02
  )

  class(primitives) <- "badclass"
  expect_error(musclesyneRgies::sMLE(primitives))

})