#Miyazawa/Jernigan matrix
mat<-as.matrix(read.table(system.file("mj1.txt", package = "BioPhysConnectoR")))
#Keskin matrix
mat2<-as.matrix(read.table(system.file("mj2.txt", package = "BioPhysConnectoR")))
cseq<-rep(1:5, 2)
d<-c(5, 5)
im<-build.interact(cseq = cseq, mj1 = mat, mj2 = mat2, d = d)
Run the code above in your browser using DataLab