showClass("CCModel")
## show summary of default model (optimized for accuracy)
PrOCoilModel
## show weight of pattern "N..La..d"
weights(PrOCoilModel)["N..La..d"]
## show the 10 patterns that are most indicative for trimers
## (as the weights are sorted in descending order in PrOCoilModel)
weights(PrOCoilModel)[1:10]
## predict oligomerization of GCN4 wildtype
GCN4wt <- predict(PrOCoilModel,
"MKQLEDKVEELLSKNYHLENEVARLKKLV",
"abcdefgabcdefgabcdefgabcdefga")
## show summary of alternative model (optimized for balanced accuracy)
PrOCoilModelBA
## show weight of pattern "N..La..d"
weights(PrOCoilModelBA)["N..La..d"]
## show the 10 patterns that are most indicative for trimers
## (as the weights are sorted in descending order in PrOCoilModelBA)
weights(PrOCoilModelBA)[1:10]
Run the code above in your browser using DataLab