# NOT RUN {
# Be careful when testing this since it involves parallelisation
# and might produce unpredictable results in some environments
library("Biostrings")
library("foreach")
library("doParallel")
s1 = readFASTA(system.file("protseq/P00750.fasta", package = "protr"))[[1]]
s2 = readFASTA(system.file("protseq/P08218.fasta", package = "protr"))[[1]]
s3 = readFASTA(system.file("protseq/P10323.fasta", package = "protr"))[[1]]
s4 = readFASTA(system.file("protseq/P20160.fasta", package = "protr"))[[1]]
s5 = readFASTA(system.file("protseq/Q9NZP8.fasta", package = "protr"))[[1]]
plist = list(s1, s2, s3, s4, s5)
psimmat = parSeqSim(plist, cores = 2, type = "local", submat = "BLOSUM62")
print(psimmat)
# }
Run the code above in your browser using DataLab