Nothing
# Internal function:
# Check if the input vector subvec is a subvector of the other input vector vec
#
# param subvec the input subvector
# param vec the input vector that may contain the subvector
is.subvector <- function(subvec, vec){
#subvec <- c('a')
#vec <- c('a','b')
substr<-paste(subvec, collapse = ', ')
fullstr<-paste(vec, collapse = ', ')
grepl(pattern = substr,x = fullstr)
}
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.