tests/testthat/test-rotation_matrix.R
In coolbutuseless/threed: Three-Dimensional Object Transformations
context("rotation_matrix")
test_that("rotation_matrix works", {
mat <- rotation_matrix(pi/2, vec3(0, 1, 0))
ref <- matrix(
c(0, 0, 1, 0,
0, 1, 0, 0,
-1, 0, 0, 0,
0, 0, 0, 1), byrow = TRUE, nrow=4)
expect_equal(mat, ref)
})
coolbutuseless/threed documentation built on May 5, 2019, 7:08 a.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
context("rotation_matrix")
test_that("rotation_matrix works", {
mat <- rotation_matrix(pi/2, vec3(0, 1, 0))
ref <- matrix(
c(0, 0, 1, 0,
0, 1, 0, 0,
-1, 0, 0, 0,
0, 0, 0, 1), byrow = TRUE, nrow=4)
expect_equal(mat, ref)
})
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.