## predict oligomerization of GCN4 wildtype
GCN4wt <- predict(PrOCoilModel,
"MKQLEDKVEELLSKNYHLENEVARLKKLV",
"abcdefgabcdefgabcdefgabcdefga")
## show result
GCN4wt
## example with four GCN4 mutations
GCN4mSeq <- c("GCN4wt" ="MKQLEDKVEELLSKNYHLENEVARLKKLV",
"GCN4_N16Y_L19T"="MKQLEDKVEELLSKYYHTENEVARLKKLV",
"GCN4_E22R_K27E"="MKQLEDKVEELLSKNYHLENRVARLEKLV",
"GCN4_V23K_K27E"="MKQLEDKVEELLSKNYHLENEKARLEKLV")
## to illustrate the alternative interface, we convert this
## character vector to an 'AAStringSet' object and add
## heptad registers as annotation metadata
GCN4mAA <- AAStringSet(GCN4mSeq)
annotationMetadata(GCN4mAA, annCharset="abcdefg") <-
rep("abcdefgabcdefgabcdefgabcdefga", 4)
## predict oligomerization (note: no 'reg' argument!)
GCN4mut <- predict(PrOCoilModel, GCN4mAA)
## display summary of result
GCN4mut
## predict oligomerization of unknown sequence (Marcoil example)
MarcoilEx <- predict(PrOCoilModel,
"MGECDQLLVFMITSRVLVLSTLIIMDSRQVYLENLRQFAENLRQNIENVHSFLENLRADLENLRQKFPGKWYSAMPGRHG",
"-------------------------------abcdefgabcdefgabcdefgabcdefgabcdefg--------------")
## show results
MarcoilEx
Run the code above in your browser using DataLab