Nothing
#
# Copyright (C) 2005-2008 Friedrich Leisch
MClapply <- function(X, FUN, multicore=TRUE, ...)
{
if(inherits(multicore, "cluster"))
parLapply(multicore, X, FUN)
else if(multicore)
mclapply(X, FUN, ...)
else
lapply(X, FUN, ...)
}
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.