retrieve {tutoR}R Documentation

~~function to do ... ~~

Description

~~ A concise (1-5 lines) description of what the function does. ~~

Usage

retrieve(x)

Arguments

x ~~Describe x here~~

Details

~~ If necessary, more details than the description above ~~

Value

~Describe the value returned If it is a LIST, use

comp1 Description of 'comp1'
comp2 Description of 'comp2'

...

Warning

....

Note

~~further notes~~

~Make other sections like Warning with section{Warning }{....} ~

Author(s)

~~who you are~~

References

~put references to the literature/web site here ~

See Also

~~objects to See Also as help, ~~~

Examples

##---- 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 {}
  }

[Package tutoR version 0.2.1 Index]