R/Comb_mean.R

In Dardare/prjct:

Comb_mean <- function(wndSize){

  partition <- seq(from = 1, to = 500-wndSize+1, by = wndSize)

  function(i){
    wnds <- lapply(partition, function(s) {
      i[1:wndSize + s-1, ]
    })
    wnds <- lapply(wnds, function(k) {colMeans(k)})
    wnds <- do.call(rbind, wnds)
    tmp <- apply(wnds, 2, function(e){combn(x = e, m = 2, FUN = function(x) x[1] - x[2])})
    as.vector(tmp)
  }
}


Comb_minmax <- function(wndSize){

  partition <- seq(from = 1, to = 500-wndSize+1, by = wndSize)

  function(i){
    wnds <- lapply(partition, function(s) {
      i[1:wndSize + s-1, ]
    })
    sapply(wnds, function(k){
      c( apply(k, 2,min), apply(k, 2, max) )
    })
  }
}

all_minmax <- function(i){
  c( apply(i,1,min), apply(i, 1, max) )
}

all_minmax_correct <- function(i){
  c( apply(i,2,min), apply(i, 2, max) )
}