tests/testthat/test_normalization.R

context("normalization")

test_that("normalization", {
  a<-matrix(runif(100,1,10),10,10)
  b<-data.Normalization(a,type="n4")
  expect_equal(round(as.numeric(attr(b,"normalized:shift")[1]),2),round(min(a[,1]),2))
})

Try the clusterSim package in your browser

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

clusterSim documentation built on Jan. 8, 2021, 2:13 a.m.