R/measures_helper_functions.R

In bommert/stabm: Stability Measures for Feature Selection

measureScoreHelper = function(features, measureFun) {
  n = length(features)
  scores = unlist(lapply(1:(n - 1), function(i) {
    sapply((i + 1):n, function(j) {
      measureFun(features[[i]], features[[j]])
    })
  }))
  return(scores)
}


meansWithoutZeros = function(x, dim.of.interest, len) {
  res = numeric(len)
  l = split(x, dim.of.interest)
  l = unlist(lapply(l, mean))
  pos = as.numeric(names(l)) + 1
  res[pos] = l
  return(res)
}

colMeansWithoutZeros = function(m) {
  return(meansWithoutZeros(m@x, m@j, m@Dim[2]))
}

rowMeansWithoutZeros = function(m) {
  return(meansWithoutZeros(m@x, m@i, m@Dim[1]))
}