powered by
decode.cutset(crf, cutset, engine = "default", start = apply(crf$node.pot, 1, which.max))
crf$n.nodes
library(CRF) data(Small) d <- decode.cutset(Small$crf, c(2))
Run the code above in your browser using DataLab