R/test_permute_slide_columns.R

In livioivil/neuR: R package for neuroscience data processing and statistical analysis of neuro-data

### 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
}