Skip to content

Commit

Permalink
=F -> = FALSE
Browse files Browse the repository at this point in the history
  • Loading branch information
patrickjdanaher authored Sep 29, 2020
1 parent 06d9c29 commit aa26fa0
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion R/reverseDecon.R
Original file line number Diff line number Diff line change
Expand Up @@ -60,7 +60,7 @@ reverseDecon <- function(norm, beta, epsilon = NULL) {
beta = beta[apply(beta, 1, stats::sd) > 0, ]
# remove cell types that get removed by lm() (presumably removed due to linear dependence)
lm1 = stats::lm(norm[1,] ~ t(beta))
beta = beta[!is.na(lm1$coef[setdiff(names(lm1$coef), "(Intercept)")]), , drop = F]
beta = beta[!is.na(lm1$coef[setdiff(names(lm1$coef), "(Intercept)")]), , drop = FALSE]

# run reverse decon for all genes:
rd <- function(y) {
Expand Down

0 comments on commit aa26fa0

Please sign in to comment.