if (Sys.which('makeblastdb') == '' | Sys.which('psiblast') == '') {
cat('Could not find makeblastdb or psiblast. Please install NCBI Blast+ first.')
} else {
x = readFASTA(system.file('protseq/P00750.fasta', package = 'protr'))[[1]]
dbpath = tempfile('tempdb', fileext = '.fasta')
invisible(file.copy(from = system.file('protseq/Plasminogen.fasta',
package = 'protr'), to = dbpath))
pssmmat = extractPSSM(seq = x, database.path = dbpath)
pssmacc = extractPSSMAcc(pssmmat, lag = 3)
tail(pssmacc)
}
Run the code above in your browser using DataLab