##Finding correlation with a response
## Not run:
# data(AMPSequences)
# data(AMPSequences.response)
#
# AMP.desc <- simpleDescriptors(AMPSequences, response=AMPSequences.response[,1])
#
# print(cor(AMP.desc))
# ## End(Not run)
##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