# NOT RUN {
x = readFASTA(system.file('protseq/P00750.fasta', package = 'BioMedR'))[[1]]
data(AATopo)
tprops = AATopo[, c(37:41, 43:47)] # select a set of topological descriptors
fa = extrPCMFAScales(x, propmat = tprops, factors = 5, lag = 7, silent = FALSE)
# }
Run the code above in your browser using DataLab