Datasets
Models
Diff of
/tests/testthat/test-unscale.R
[000000]
..
[d79ff0]
Switch to unified view
| a | b/tests/testthat/test-unscale.R | ||
|---|---|---|---|
| 1 | context("unscale") |
||
| 2 | |||
| 3 | test_that("unscale works", { |
||
| 4 | |||
| 5 | X <- matrix(1:9, ncol = 3) |
||
| 6 | X.scale <- scale(X, center = TRUE, scale = TRUE) |
||
| 7 | X.unscale <- unscale(X.scale) |
||
| 8 | |||
| 9 | expect_is(X.unscale, "matrix") |
||
| 10 | expect_equal(X, X.unscale) |
||
| 11 | }) |