library(nnet)
data(pssm)
data(Model_Parameters)
data(LOGICOILfit)
score <- LOGICOIL("GCN4wt", "MKQLEDKVEELLSKNYHLENEVARLKKLV",
"abcdefgabcdefgabcdefgabcdefga", plot.result=TRUE)
# print output
print(score)
Run the code above in your browser using DataLab