data(ex1)
sx <- seqdef(ex1[,1:13], right="DEL")
seqibad(sx) ## using original alphabet order
seqibad(sx, stprec=c(1,2,3,6)) ## user defined undesirableness values
seqibad(sx, with.missing=TRUE, state.order=c('A','B','C','D'))
Run the code above in your browser using DataLab