showClass("CCProfile")
## predict oligomerization of GCN4 wildtype
GCN4wt <- predict(PrOCoilModel,
"MKQLEDKVEELLSKNYHLENEVARLKKLV",
"abcdefgabcdefgabcdefgabcdefga")
## display summary of result
GCN4wt
## show raw prediction profile
profile(GCN4wt)
## plot profile
plot(GCN4wt)
## define four GCN4 mutations
GCN4mSeq <- c("GCN4wt" ="MKQLEDKVEELLSKNYHLENEVARLKKLV",
"GCN4_N16Y_L19T"="MKQLEDKVEELLSKYYHTENEVARLKKLV",
"GCN4_E22R_K27E"="MKQLEDKVEELLSKNYHLENRVARLEKLV",
"GCN4_V23K_K27E"="MKQLEDKVEELLSKNYHLENEKARLEKLV")
GCN4mReg <- rep("abcdefgabcdefgabcdefgabcdefga", 4)
## predict oligomerization
GCN4mut <- predict(PrOCoilModel, GCN4mSeq, GCN4mReg)
## display summary of result
GCN4mut
## display predictions
fitted(GCN4mut)
## overlay plot of two profiles
plot(GCN4mut[c(1, 2)])
## show heatmap
heatmap(GCN4mut)
Run the code above in your browser using DataLab