# NOT RUN {
#File path for output files
wd <- tempdir()
#wd <-getwd()
file <- file.path(wd,"test_seq4")
#Importing MSA file
msf <- system.file("msa/toy_align.msf", package = "Bios2cor")
align <- import.msf(msf)
#Creating OMES correlation object and selecting correlation matrix
omes <- omes(align, gap_ratio = 0.2)
omes <-omes$Zscore
#Creating PCA object for selected matrix
pca <- centered_pca(omes, filepathroot= file, filter = NULL, pc= NULL, dec_val= 5)
#Saving coordinates of elements in csv file
write.pca(pca, file, pc = 10, entropy = NULL)
# }
Run the code above in your browser using DataLab