tests/testthat/test-softmax.R

In reservr: Fit Distributions and Neural Networks to Censored and Truncated Data

test_that("test softmax", {
  expect_equal(softmax(numeric()), numeric())
  expect_equal(softmax(c(1, 1)), c(0.5, 0.5))
  expect_equal(softmax(c(2, 1)), exp(c(2, 1)) / sum(exp(c(2, 1))))

  expect_equal(softmax(matrix(nrow = 0L, ncol = 0L)), matrix(NA_real_, nrow = 0L, ncol = 0L))
  expect_equal(softmax(matrix(nrow = 1L, ncol = 0L)), matrix(NA_real_, nrow = 1L, ncol = 0L))
  expect_equal(softmax(matrix(nrow = 0L, ncol = 1L)), matrix(NA_real_, nrow = 0L, ncol = 1L))
  expect_equal(
    softmax(matrix(c(1, 1, 2, 1), nrow = 2L, byrow = TRUE)),
    matrix(
      c(0.5, 0.5, exp(c(2, 1)) / sum(exp(c(2, 1)))),
      nrow = 2L,
      byrow = TRUE
    )
  )

  expect_equal(dsoftmax(numeric()), matrix(NA_real_, nrow = 0L, ncol = 0L))
  expect_equal(dsoftmax(c(1, 1)),
               matrix(c(0.25, -0.25, -0.25, 0.25), nrow = 2L))
  expect_equal(dsoftmax(c(1, 1)), dsoftmax(c(2, 2)))
  expect_equal(dsoftmax(c(5, 1)), dsoftmax(c(6, 2)))
})