R/Cs.s

In harrelfe/Hmisc: Harrell Miscellaneous

Defines functions .q Cs

Documented in Cs .q

Cs <- function(...)as.character(sys.call())[-1]

.q <- function(...) {
  s <- sys.call()[-1]
  w <- as.character(s)
  n <- names(s)
  if(length(n)) names(w) <- n
  w
}