# NOT RUN {
# amino acid sequence with gaps
x = readFASTA(system.file('protseq/align.fasta', package = 'BioMedR'))$`IXI_235`
data(AAindex)
AAidxmat = t(na.omit(as.matrix(AAindex[, 7:26])))
scales = extrPCMScaleGap(x, propmat = AAidxmat, pc = 5, lag = 7, silent = FALSE)
# }
Run the code above in your browser using DataLab