##Finding correlation with a response
data(AMPSequences)
data(AMPSequences.response)
AMP.desc <- simpleDescriptors(AMPSequences, response=AMPSequences.response[,1])
print(cor(AMP.desc))
##Discovering which descriptors are important
data(TULASequences)
TULA.desc <- simpleDescriptors(TULASequences, include.statistics=TRUE)
print(TULA.desc@pvalues)Run the code above in your browser using DataLab