#run signalHsmm on one sequence
x1 <- run_signalHsmm(benchmark_dat[[1]])
#run signalHsmm on one sequence, but input is a character vector
x2 <- run_signalHsmm(c("m", "a", "g", "k", "e", "v", "i", "f",
"i", "m", "a", "l", "f", "i", "a", "v", "e", "s", "s", "p", "i",
"f", "s", "f", "d", "d", "l", "v", "c", "p", "s", "v", "t", "s",
"l", "r", "v", "n", "v", "e", "k", "n", "e", "c", "s", "t", "k",
"k", "d", "c", "g", "r", "n", "l", "c", "c", "e", "n", "q", "n",
"k", "i", "n", "v", "c", "v", "g", "g", "i", "m", "p", "l", "p",
"k", "p", "n", "l", "d", "v", "n", "n", "i", "g", "g", "a", "v",
"s", "e", "s", "v", "k", "q", "k", "r", "e", "t", "a", "e", "s",
"l"))
#run signalHsmm on list of sequences
x3 <- run_signalHsmm(benchmark_dat[1:3])
#see summary of results
summary(x3)
#print results as data frame
pred2df(x3)
#summary one result
summary(x3[[1]])
plot(x3[[1]])Run the code above in your browser using DataLab