# NOT RUN {
x <- c(1, 1, 1, 0, 0, 1, 1, 1, 2, 2, 2, 1, 2, 2, 2, 3)
(ans <- subSeq(x))
ans$value
# Notice: Same results below
subSeq(x, item=1)
subSeq(x, item="1")
x <- as.character(c(1, 1, 1, 0, 0, 1, 1, 1, 2, 2, 2, 1, 2, 2, 2, 3))
(ans<-subSeq(x))
ans$value
# Notice: Same results below
subSeq(x, item="1")
subSeq(x, item=1)
# }
Run the code above in your browser using DataLab