R/load_data.R

In aaaaana/changepoints:

library(seqinr)

load_seq <- function(file_path) {

  as.factor( # Set unlisted data to factors, saves memory
<<<<<<< HEAD
    unlist( # unlist 
      seqinr::read.fasta(file=file_path, as.string = F, forceDNAtolower = T), #read data
=======
    unlist( # unlist
      seqinr::read.fasta(file=file_path, as.string = F, forceDNAtolower = T), #read data, all lower case
>>>>>>> 7b73f421d8fdafcb91440a6cfe31e0d284ade38f
      use.names=FALSE)
    )
}