1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
library("matrixStats")
logSumExp_R <- function(lx, na.rm = FALSE) {
log(sum(exp(lx), na.rm = na.rm))
}
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
# Subsetted tests
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
source("utils/validateIndicesFramework.R")
x <- runif(6, min = -6, max = 6)
for (idxs in index_cases) {
validateIndicesTestVector(x, idxs,
ftest = logSumExp, fsure = logSumExp_R,
na.rm = FALSE)
validateIndicesTestVector(x, idxs,
ftest = logSumExp, fsure = logSumExp_R,
na.rm = TRUE)
}
|
