R/rrd.R

Defines functions rrd

rrd <-
function(x) 
{
  xo <- x
  x <- splitme(x)
  go <- TRUE
  rval <- NULL
  for(i in 1L:length(x)) {
    if(x[i] == ",")
      go <- FALSE
    if(go)
      rval <- c(rval, x[i])
  }
  rval <- resplit(c(rval, ")"))
  rval <- gsub("))", ")", rval)
  if(grepl("):", xo, fixed = TRUE))
    rval <- paste(rval, strsplit(xo, "):", fixed = TRUE)[[1L]][2L], sep = ":")
  
  return(rval)
}

Try the R2BayesX package in your browser

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

R2BayesX documentation built on Dec. 5, 2017, 3:01 p.m.