powered by
seqLLCS(seq1, seq2)
seqdist
LCS.ex <- c("S-U-S-M-S-U", "U-S-SC-MC", "S-U-M-S-SC-UC-MC") LCS.ex <- seqdef(LCS.ex) seqLLCS(LCS.ex[1,],LCS.ex[3,])
Run the code above in your browser using DataLab