HiCcomparator doesn't work

[sshen82]

Hi, I am trying to use the two files here: http://pages.stat.wisc.edu/~sshen82/diadem_example/, but it shows an error as below. Do you know what happened?

hic.comparator <- HiCcomparator(original, spikein, mtx.names = "all") # original and spikein are the example data path

Error in array(x, c(length(x), 1L), if (!is.null(names(x))) list(names(x), : 'data' must be of a vector type, was 'NULL'
Traceback:

1. HiCcomparator(original, spikein, mtx.names = "all")
2. lapply(nms, function(n) {
   . aggregate_diagonals(maps1[[n]], maps2[[n]], agg.diags = agg.diags,
   . which.test = which.test, exclude.outliers = exclude.outliers)
   . }) %>% magrittr::set_names(nms) # at line 26-29 of file
3. lapply(nms, function(n) {
   . aggregate_diagonals(maps1[[n]], maps2[[n]], agg.diags = agg.diags,
   . which.test = which.test, exclude.outliers = exclude.outliers)
   . })
4. FUN(X[[i]], ...)
5. aggregate_diagonals(maps1[[n]], maps2[[n]], agg.diags = agg.diags,
   . which.test = which.test, exclude.outliers = exclude.outliers) # at line 27-28 of file
6. get_next(mgs, k = k, alpha = alpha, wt = which.test)
7. as.matrix(df1[df1$outlier == "no", c("val.x", "val.y")])
8. as.matrix.default(df1[df1$outlier == "no", c("val.x", "val.y")])
9. array(x, c(length(x), 1L), if (!is.null(names(x))) list(names(x),
   . NULL) else NULL)