Commit bf8e86fe authored by brandl's avatar brandl

fixed execution in case of lin-dep design

parent 9fb37e32
......@@ -44,7 +44,7 @@ force_correct=opts$force
# should we include all columns as better default??
assert(str_detect(designFormula, ".*condition$"))
results_prefix = if (str_length(opts$out) > 0) paste0(opts$out, ".") else ""
if (str_length(!is.null(opts$out)) > 0) results_prefix = paste0(opts$out, ".")
#' Run configuration was
vec_as_df(unlist(opts)) %>%
......@@ -403,6 +403,7 @@ htmltools::tagList(lapply(list("condition"), function(batchFactor) {
#' ## Score distributions
#' Compare the effect of the no
#+ eval=couldBcCorrect
rawLong = countMatrix %>%
as.data.frame() %>%
......@@ -420,7 +421,8 @@ inner_join(rawLong, bcLong) %>% ggplot(aes(raw_expr, norm_expr)) +
geom_point(alpha = 0.3) +
geom_abline(slope = 1, color = "red")
#+ fig.height=2*ceiling(nrow(exDesign)/5)
#+ fig.height=2*ceiling(nrow(exDesign)/5), eval=couldBcCorrect
inner_join(rawLong, bcLong) %>% ggplot(aes(raw_expr, norm_expr)) +
geom_point(alpha = 0.1) +
geom_abline(slope = 1, color = "red") +
......
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