tests/testthat/test-SQS.R

In jgillam13/IRASD: What the Package Does (One Line, Title Case)

test_that("SQS is working correctly", {
  SQS1<-matrix(c('A','A','0','B','B','0','C','C','0','A','B','1','B','C','1','C','A','1','A','A','1'),nrow=7,ncol=3,byrow=T)
  expect_equal(SQS(c('A','B','C','A','A','B','C'),2), SQS1)
})