modulefile1 = system.file('extdata','mouse_naiveCD4T_Vahedi_short.rds',
package = 'HiCocietyExample')
modulefile2 = system.file('extdata','mouse_Th1_Vahedi_short.rds',
package = 'HiCocietyExample')
mycom1 = readRDS(modulefile1)
mycom2 = readRDS(modulefile2)
result = ConnectivityDiff(mycom1, mycom2, 'NaiveCD4T', 'Th1',
resolution = 5000)
head(print(result))
Run the code above in your browser using DataLab