Commit cbf93511 authored by Rauschenberger's avatar Rauschenberger
Browse files

automation

parent 10c41a50
......@@ -22,7 +22,7 @@ match.samples <- function(...,message=TRUE){
list <- list(...)
if(length(list)==1 & is.list(list[[1]])){list <- list[[1]]}
names <- names(list)
names <- sapply(substitute(list(...))[-1],deparse)
# check input
cond <- sapply(list,function(x) !is.matrix(x))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment