## Import a PDB file from the file system
if(require(bio3d)) {
fn <- system.file("extdata", "1AJC_chainA.pdb", package="Rknots")
protein <- loadProtein(fn, join.gaps = TRUE)
str(protein)
protein.g <- findGaps(protein$A, cutoff = 7)
str(protein.g)
}
Run the code above in your browser using DataLab