Nothing
multiseq <- function ( v ) {
checkmate::assert_vector(v)
names ( v ) <- seq ( along = v )
s <- mapply ( function ( vv , v ) {
vvv <- v[v==vv]
s <- seq ( along = vvv )
names ( s ) <- names( vvv )
return ( s )
} , unique ( v ) , MoreArgs = list ( v ) , USE.NAMES = FALSE , SIMPLIFY = FALSE )
s <- do.call ( "c" , s )
s <- unname ( s [ match ( names ( v ) , names ( s ) ) ] )
return(s)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.