test.R

download.file("https://www.dropbox.com/s/jukonxw5g04n8ra/sim2.row.h5?dl=1", "sim2.row.h5")
download.file("https://www.dropbox.com/s/lyyr2pnzup5aw6v/sim2.col.h5?dl=1", "sim2.col.h5")
cluster <- rep(2, 2499)
cluster[1:500] <- 1
system.time(dfrow <- Signac:::HarmonyMarkerH5("sim2.row.h5", cluster))
mat <- Signac::ReadSpMtAsS4("sim2.col.h5", "bioturing")
system.time(dfcol <- Signac:::HarmonyMarker(mat, cluster))