Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Pairwise #15

Merged
merged 10 commits into from
Aug 12, 2024
Merged

Pairwise #15

merged 10 commits into from
Aug 12, 2024

Conversation

atuldeshpande
Copy link
Member

Added functions and code to support pairwise getInteractingGenes call.

R/test-helper.R Show resolved Hide resolved
R/getInteractingGenes.R Show resolved Hide resolved
mode=c("residual","DE"),optParams=NULL,
reconstruction=NULL,hotspots=NULL,
getInteractingGenes <- function(data, spPatterns, refPattern="Pattern_1",
mode=c("DE","residuals"), optParams=NULL,
Copy link
Contributor

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

important: "residual" or "residuals"?

} else if (is.matrix(patternPairs)) {
if (ncol(patternPairs) != 2)
stop("patternPairs matrix must have 2 columns.")
} else if(is.character(patternPairs))
Copy link
Contributor

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

note: is this is valid use case? I could not imagine when someone would want to format c('a','b','c','d') as

> matrix(c, ncol=2)
     [,1] [,2]
[1,] "a"  "c" 
[2,] "b"  "d" 

patternPairs <- matrix(patternPairs, ncol=2)
else
stop("patternPairs must either be a 2-column matrix
or a list of vectors.")
Copy link
Contributor

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

..or a character vector?

results[[ii]] <- result
}
}
for (ii in seq(1,length(results)))
Copy link
Contributor

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

note: maybe seq_len(results)? seq(1,0) yields [1] 1 0

R/find_genes_of_interest.R Show resolved Hide resolved
@dimalvovs dimalvovs merged commit 4e39af5 into main Aug 12, 2024
5 of 6 checks passed
@dimalvovs dimalvovs deleted the pairwise branch August 12, 2024 13:02
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Labels
None yet
Projects
None yet
Development

Successfully merging this pull request may close these issues.

2 participants