# NOT RUN {
ser=sample(letters[1:6],100,replace=TRUE)
fact=as.factor(c(rep("one",30),rep("two",20),rep("three",10),rep("four",40)))
print(rbind(ser,fact)) # Facultative to see the structure
seq=makeSeries(ser,fact)
print(seq)
compseq(seq) # Facultative, compares the sequences obtained.
# }
Run the code above in your browser using DataLab