test/testthat/testrthtable.R

In matloff/Rth: Rth: Parallel R through Thrust

describe("rthtable", {
  it("behaves similar to table", {
    x <- rbind(
      c(1,2),
      c(1,1),
      c(2,3),
      c(1,2)
    )

#    rthval <- rthtable(x, c(2,3), 2)
#    table <- matrix(c(1,0,2,0,0,1), 2, 3)

#    expect_equal(rthval, table)
  })
})