#Reading pdb and dcd files
pdb <- system.file("rotamer/tiny_toy_coordinates.pdb", package= "Bios2cor")
trj <- system.file("rotamer/tiny_toy_dynamics.dcd", package= "Bios2cor")
#Creating dynamic_structure object
wanted_frames <- seq(from = 5, to = 40, by = 15)
dynamic_structure <- dynamic_structure(pdb, trj, wanted_frames)
#Creating rotamers object using conversion_file
conversion_file <- system.file("rotamer/dynameomics_rotamers.csv", package= "Bios2cor")
rotamers <- angle2rotamer(dynamic_structure, conversion_file)
#Creating correlation object for selected residues with MIP method
wanted_residues <- c("H","N")
mip_corr <- dynamic_mip(dynamic_structure, rotamers, wanted_residues)
Run the code above in your browser using DataLab