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 July 9, 2023, 7:54 p.m.