printGroup <- function(byCols, ..., quiet=FALSE, tmp_DT.ll=get("tmp_DT.ll", envir=parent.frame())) {
  # if (!exists("tmp_DT.ll"))
  #   stop ("missing tmp_DT.ll")

  tmp_DT.ll <- copy(tmp_DT.ll)

  byCols <- c(byCols, unlist(list(...)))
  if (!any(grepl("TreatmentWk1", byCols)))
    byCols <- c("TreatmentWk1", byCols)
  byCols <- unique(byCols)

  group <- pasteC(byCols, C=":")
  
  if (group %ni% names(tmp_DT.ll))
    stop ("group '", group, "' not in tmp_DT.ll")

  cat (" \n\n----------------- ", tmp_nm, " ---------------\n\n")

  
  tmp_DT <- copy(tmp_DT.ll[[group]])
  tmp_DT[, sig := ""]
  tmp_DT[`p adj` < 0.1, sig := "*"]
  tmp_DT[`p adj` < 0.05, sig := "**"]
  tmp_DT[`p adj` < 0.01, sig := "***"]
  # setnames(tmp_DT, "sig", "")

  froms <- setdiff(extract("from_", tmp_DT), "from_TreatmentWk1")

  if (!quiet)
    print(formnumb(tmp_DT[Reduce("&", lapply(froms, function(fr) get(fr) == get(gsub("from_", "to_", fr))))]  ))

  return(invisible(tmp_DT))
}