Log In Sign Up
Models:
Alyssa Salazar
AlyssaS/
timeOmics
0
Downloads: 1
[d79ff0]: / tests / testthat / test-unscale.R

Download this file

11 lines (8 with data), 245 Bytes 

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
context("unscale")



test_that("unscale works", {

    

    X <- matrix(1:9, ncol = 3)

    X.scale <- scale(X, center = TRUE, scale = TRUE)

    X.unscale <- unscale(X.scale)

    

    expect_is(X.unscale, "matrix")

    expect_equal(X, X.unscale)

})