R/fixnames.R

Defines functions fixnames

fixnames <- function(x,name="")
{
  if (is.null(names(x)))
  {
    names(x) <- paste0(name,seq_along(x))
  }
  
  return(ifelse(names(x)=='',paste0(name,seq_along(x)), names(x)))
}

Try the qgraph package in your browser

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

qgraph documentation built on Nov. 3, 2023, 5:07 p.m.