Nothing
simpleSort = function(x)
.Call("simpleSort", x, PACKAGE="RBioinf")
simpleRand = function(x, y="notused")
.Call("simpleRand", x, y, PACKAGE="RBioinf")
Rcal = function(month, year) {
pD = function(x) pipe(paste("date \"+%", x, "\"", sep=""))
if(missing(month))
month = readLines(pD("m"))
if(missing(year))
year = readLines(pD("Y"))
cat(readLines(pipe(paste("cal ", month, year))), sep="\n")
}
simplePVect = function(iV) {
.C("simplePVect", as.double(iV), as.integer(length(iV)),
PACKAGE="RBioinf")
invisible(NULL)
}
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.