test/testthat/testrthxpos.R

describe("rthxpos", {
  it("transposes a vector", {
    x <- matrix(runif(30), 5, 6)

    rthval <- rthxpos(x)
    rval <- t(x)

    expect_equal(rthval, rval, tolerance = 0.1)
  })
})
matloff/Rth documentation built on May 21, 2019, 12:55 p.m.