R/permute_split.R

In fabisearch: Change Point Detection in High-Dimensional Time Series Networks

#===========================================================================
# Permutes input data by whole rows, that is, permute the time course of all ROIs together

permute_split = function(data){

  # Save the row names/labels of the original dataset
  row.names = rownames(data)

  # Create random index
  random.index = sample(seq(1,dim(data)[1],1))

  # Randomize data and change row names to original
  data = data[random.index, ]
  rownames(data) = row.names

  return(data)
}