tests/testit/test-denoise-normalize.R

assert('normalize returns', {
  x <- matrix(rnorm(80, sd=4), ncol=4)
  y <- normalize(x)
  v <- apply(y, 2, var)

  all.equal(v, rep(1,4), tolerance=0.0001)
})

Try the tawny package in your browser

Any scripts or data that you put into this service are public.

tawny documentation built on April 21, 2018, 1:05 a.m.