# NOT RUN {
data("alignment")
data("structure")
# }
# NOT RUN {
entropy_data=list(Schneider.entropy=schneider_conservativity(alignment),
Escore.entropy = Escore_conservativity(alignment),
Kabat.entropy = kabat_conservativity(alignment))
indices=get_structures_idx(structure)
protein_index = indices$proteinIndices
structure_index = indices$structureIndices
prot_cons=get_prot_entropy(protein_index,entropy_data)
stru_entropy=get_structures_entropy(structure_index,entropy_data)
profiles_for_structure=prepare_structure_profile(structure, stru_entropy)
EQUAL=kolmogorov_smirnov_test(protein_entropy = prot_cons,
structure_entropy = profiles_for_structure,
alternative = 1,range = c(1:233),make_plot = TRUE)
# }
Run the code above in your browser using DataLab