inst/tests/test_quantize.R

In lambda.tools: Tools for Modeling Data with Functional Programming

# :vim set filetype=R
context("quantize")
test_that("quantize works for a small sequence and default metric", {
  x <- seq(-2, 2, by=.1)
  y <- c(rep(-1, 16), rep(0, 10), rep(1, 15))
  expect_equal(quantize(x), y)
})

test_that("quantize works for a small sequence and Euclidean distance metric", {
  x <- seq(-2, 2, by=.1)
  y <- c(rep(-1, 16), rep(0, 10), rep(1, 15))
  expect_equal(quantize(x), y)
})

test_that("Bin ordering does not affect ties.", {
  x <- -20:20 / 10
  bins <- c(-1, 0, 1)
  y1 <- quantize(x, bins=c(-1, 0, 1))
  y2 <- quantize(x, bins=c(1, 0, -1)) 
  expect_equal(y1, y2)
})