R/term.names.R

Defines functions term.names

term.names <- function(x)
{
  n <- length(x)
  names <- vector("list", n)
  for(i in 1L:length(x)) {
    if(is.sm(x[i]))
      names[[i]] <- eval(parse(text = x[i]))$term
    else
      names[[i]] <- x[i]
  }
  
  return(names)
}

Try the R2BayesX package in your browser

Any scripts or data that you put into this service are public.

R2BayesX documentation built on Oct. 20, 2023, 3:01 p.m.