test_that("testing basic operations for IRTest_Dich",
          {
            expect_equal(
              original_par_2GM(),
              c(0,0,1,1)
              )
            }
)