data(actcal)
actcal.seq <- seqdef(actcal,13:24)
## Summarize and plots an histogram
## of the within sequence entropy
actcal.ient <- seqient(actcal.seq)
summary(actcal.ient)
hist(actcal.ient)
Run the code above in your browser using DataLab