#' Get observed frequncy of a behavior
#' @param x a character sequence
#' @return A vector of observed frequencies
#' @examples
#' seqfreq("abacbabacbabcababacbcbcbabaaabababbababcb")
#' @section Further details:
#' Calculates simple observed frequencies of behaviors in
#' a character sequence
#' @export
seqfreq <-function(x) { table(uncollapse(x)) }
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.