Nothing
# internal; unique Elemente eines genamten Vektors
uniqueNamedVector <- function ( namedVector ) {
d <- data.frame ( nam = names ( namedVector ) , val = namedVector , stringsAsFactors = FALSE )
d <- unique ( d )
newv <- d$val
names ( newv ) <- d$nam
return ( newv )
}
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.