Last chance! 50% off unlimited learning
Sale ends in
Calculates a mutual information score (MI) based on the probability of joint occurrence of events.
dynamic_mi(
dynamic_structure,
rotamers,
res_selection=
c("C","I","L","M","V","R","H","K","D","E","N","Q","F","Y","W","T","S","P")
)
An object of class 'structure' that is created by the dynamic_structure
function
A character matrix of type 'rotamers' that is produced by the angle2rotamer
function.
The matrix indicates the rotameric state of each side chain dihedral angle for each frame of the trajectory.
List of amino acids that will be taken into account in the correlation/covariation matrix. By default, all the amino acids are taken into account except Gly and Ala, with no side chain dihedral angles.
returns a list of four elements which are numeric matrices containing (1) the correlation/covariation scores for each pair of rotamers (score), (2) the Z-scores for each pair of rotamers (Zscore), (3) the correlation/covariation scores for each pair of rotamers with zero values for autocorrelation (correlation within the same side chain) (score_noauto) and (4) the Z-scores calculated without autocorrelation pairs and zero values for autocorrelation pairs (Zscore_noauto).
The MI score at position [i,j] has been computed with the following formula :
where
Dunn SD, Wahl LM, Gloor GB. Mutual information without the influence of phylogeny or entropy dramatically improves residue contact prediction. Bioinfor;atics 2008;24:333-340. Martin LC, Gloor GB, Dunn SD, Wahl LM. Using infor;ation theory to search for co-evolving residues in proteins. Bioinformatics 2005;21:4116-4124.
# NOT RUN {
#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 using MI method
wanted_residues <- c("H","N")
mi_corr <- dynamic_mi(dynamic_structure, rotamers, wanted_residues)
# }
Run the code above in your browser using DataLab