if (FALSE) {
library(BigDataStatMeth)
# Create test data
data <- matrix(rnorm(100), 10, 10)
rownames(data) <- paste0("TCGA-OR-A5J", 1:10)
# Save to HDF5
fn <- "test.hdf5"
bdCreate_hdf5_matrix(fn, data, "data", "matrix1",
overwriteFile = TRUE)
# Create sorting blocks
block1 <- data.frame(
chr = paste0("TCGA-OR-A5J", c(2,1,3,4)),
order = 1:4,
newOrder = c(2,1,3,4),
row.names = paste0("TCGA-OR-A5J", 1:4)
)
block2 <- data.frame(
chr = paste0("TCGA-OR-A5J", c(6,5,8,7)),
order = 5:8,
newOrder = c(6,5,8,7),
row.names = paste0("TCGA-OR-A5J", 5:8)
)
# Sort dataset
bdSort_hdf5_dataset(
filename = fn,
group = "data",
dataset = "matrix1",
outdataset = "matrix1_sorted",
blockedSortlist = list(block1, block2),
func = "sortRows"
)
# Cleanup
if (file.exists(fn)) {
file.remove(fn)
}
}
Run the code above in your browser using DataLab