Nothing
"lez" <-
function (BE=names(.QND)) {
#########################################################################
#
# TITLE: lez()
# AUTHOR: ?
# DATE: ?
# CALLS:
# NEEDS:
# NOTES:
#
# SAMPLE:
#
#########################################################################
ZEK <- "Z"==substring(BE,1,1)
BE[!ZEK]
}
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.