p<-extractPDB(system.file("1KZK.pdb", package = "BioPhysConnectoR"))
cm<-build.contacts(n = p$lca, xyz = p$coords, cuts = 169)$cm
chains<-p$chains
res<-scpcp(cm = cm, eps = 10^(-10), t = 5, r = 0.8, maxiter = 100,
pstart = 0.5, chains=chains)
Run the code above in your browser using DataLab