写了一个function 想实现直接输入数据去用TADCompare
```r
compare2v2 <- function(data1,data2,lista,listb,start_coord,end_coord){
library(TADCompare)
mtx1 <- data1
mtx2 <- data2
res <- 40000
(scaling_factor <- mtx1_total / mtx2_total)
list1 = lista[,3]
list2 = listb[,3]
combine_bed <- list(list1,list2)
TD_Compare <- TADCompare(mtx1, mtx2, resolution = res, pre_tads = combine_bed)
head(tads_C$TAD_Frame)
head(TD_Compare$TAD_Frame)
p <- DiffPlot(tad_diff = TD_Compare,
cont_mat1 = mtx1,
cont_mat2 = mtx2,
resolution = res,
start_coord = start_coord,
end_coord = end_coord,
show_types = TRUE,
point_size = 5,
max_height = 5,
rel_heights = c(1, 2),
palette = "RdYlBu")
plot(p)
}
``
报错
```r
错误: Argument 1 must have names.