set.seed(12)
d <- build_net(11,22,21,0.2)
m <- icmotif_count(d)
m
set.seed(12)
d <- build_net(11,22,21,0.2,asmatrices=TRUE)
MAT<-d
icmotif_count(MAT[[3]],MAT[[4]])
md1<-matrix(sample(c(0,1),120,replace=TRUE),8,15)
md2<-matrix(sample(c(0,1),120,replace=TRUE),10,12)
icmotif_count(md1,md2)
R<-rownames(MAT[[4]])[12]
MR<-MAT[[4]][12,]
MAT[[4]]<-MAT[[4]][-12,]
MAT[[4]]<-rbind(MAT[[4]],MR)
rownames(MAT[[4]])[22]<-R
icmotif_count(MAT[[3]],MAT[[4]])
Run the code above in your browser using DataLab