# NOT RUN {
msf <- system.file("msa/toy_align.msf", package = "Bios2cor")
align <- import.msf(msf)
#Creating OMES object
omes <- omes(align,fileHelix= NULL , diag= 0, fileCSV= NULL, gap_val= 0.8, z_score= TRUE)
omes <- omes$normalized
#Creating ENTROPY object
entropy <- entropy(align)
#creating entropy graph
entropy_graph(entropy, omes, filter = NULL, elite = 25, high = 275, csv = TRUE,
name = "entropy_graph.pdf")
# }
Run the code above in your browser using DataLab