#File path for output files
wd <- tempdir()
#wd <-getwd()
file <- file.path(wd,"test_seq")
#Importing multiple sequence alignment
align <- import.msf(system.file("msa/human_gpcr.msf", package = "Bios2cor"))
#Creating entropy object
entropy <- entropy(align, gap_ratio = 0.2)
#Writing results to csv file
write.entropy(entropy, file)
Run the code above in your browser using DataLab