R/test_permute_slide_columns.R

Defines functions permute.columns slide.1.column slide.columns

### randomly permute rows in slices of the 3rd dim
permute.columns <- function(X,dim3,n){
  temp=cbind(as.vector(X[,,1]),
             sapply(2:dim3, function(i)
               X[sample(n),,i])
  )
  temp=array(temp,dim(X))
  temp
}


### random or all slide of time-courses
slide.1.column<- function(x,startFrom,n){
  fromStepToN=startFrom:n
  c(x[fromStepToN],x[-fromStepToN])
}

slide.columns <- function(X,startFrom,n){
  temp=cbind(as.vector(X[,,1]),
        sapply(1:length(startFrom), function(i)
          X[slide.1.column(1:n,startFrom[i],n),,i+1])
        )
  temp=array(temp,dim(X))
  temp
}
livioivil/neuR documentation built on May 21, 2019, 6:43 a.m.