| retrieve {tutoR} | R Documentation |
~~ A concise (1-5 lines) description of what the function does. ~~
retrieve(x)
x |
~~Describe x here~~ |
~~ If necessary, more details than the description above ~~
~Describe the value returned If it is a LIST, use
comp1 |
Description of 'comp1' |
comp2 |
Description of 'comp2' |
...
....
~~further notes~~
~Make other sections like Warning with section{Warning }{....} ~
~~who you are~~
~put references to the literature/web site here ~
~~objects to See Also as help, ~~~
##---- Should be DIRECTLY executable !! ----
##-- ==> Define data, use random,
##-- or do help(data=index) for the standard data sets.
## The function is currently defined as
function(x)
{
funcname <- deparse(substitute(x))
if(substr(funcname,1,1) == "\"") funcname=x
if(funcname %in% .Control()) funcname <- "Control"
if(funcname %in% .Log()) funcname <- "Log"
if(funcname %in% .Trig()) funcname <- "Trig"
if(funcname == "tutoR") funcname <- "tutoR.package"
if(.function.exists(funcname) & length(.find.owner(funcname))>0) {
pkg <- .find.owner(funcname)
if(length(pkg) > 1) {
cat(sep="", "Note: ", "'", funcname, "' may differ with: library(",
paste(sep=", library(", pkg[-1]), ")\n")
pkg <- pkg[1]
}
cat(funcname, "is in", pkg, "\n")
} else {}
}