Nothing
"kossze" <-
function (ik=3,BE=BEM) {
#############################################################
#
# TITLE: kossze()
# AUTHOR: SANDOR KABOS
# DATE: 2003
# CALLS:
# NEEDS:
# NOTES:
#
#############################################################
MI <- BE[,ik]
MIKI <- match(kul(MI),MI)
BE[MIKI,]
}
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.