Displaying 1 result from an estimated 1 matches for "e4chler".
Did you mean:
beuchler
1997 May 23
0
R-alpha: apropos() available
...**************
apropos <- function (pattern) {
x <- character(0)
for (i in 1 : length(search()))
x <- c(x, ls(pos =3D i, pattern =3D pattern))
x
}
apropos <- function (pattern, where =3D FALSE) {
## Give all objects which match _pattern_.
## By Kurt Hornik & Martin M=E4chler, May 1997.
x <- character(0)
for (i in seq(search())) {
ll <- length(li <- ls(pos =3D i, pattern =3D pattern))
if (ll)
if (where)
x <- c(x, structure(li, names =3D rep(i, ll)))
else
x <- c(x, li)
}
x
}
*** apropos.d **************************************...