Commit 84c5d1cc authored by Jakob Wirbel's avatar Jakob Wirbel

fix warning if values are dropped from the label.

parent a87f20a6
......@@ -144,7 +144,8 @@ create.label <- function(label, case, meta=NULL, control = NULL,
if(any(!groups%in%c(case, control))){
label.vec <- label.vec[which(label.vec%in%c(case, control))]
warning("Dropping values: ",
groups[which(!groups%in%c(case, control))], '\n')
paste(groups[which(!groups%in%c(case, control))],
collapse=', '), '\n')
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