## get path to the files
files <- dir(system.file(package="apex"),patter="patr", full=TRUE)
files
## read files
x <- read.multiFASTA(files)
x
opar <- par(no.readonly=TRUE)
par(mfrow=c(2,2))
plot(x, row=FALSE)
par(opar)
y <- read.multiphyDat(files, format="fasta")
y
Run the code above in your browser using DataLab