R/c.seqMeta.R

In seqMeta: Meta-Analysis of Region-Based Tests of Rare DNA Variants

c.skatCohort <- function(...){
  ev <- environment()
  cl <- match.call()
	ncohort <- length(cl)-1
	re <- NULL
	for(i in 1:ncohort){
		re <- c(re,as.list(eval(cl[[i+1]],ev) ))
	}
	class(re) <- "skatCohort"
	re
	}

#' @export
c.seqMeta <- function(...){
	ev <- environment()
  cl <- match.call()
	ncohort <- length(cl)-1
	re <- NULL
	for(i in 1:ncohort){
		re <- c(re,as.list(eval(cl[[i+1]],ev) ))
	}
	class(re) <- "seqMeta"
	re
	}