johrpan/geposan
1
0
Fork 0
mirror of https://github.com/johrpan/geposan.git synced 2025-10-26 02:37:25 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

Add some missing import qualifiers

Browse source
This commit is contained in:
Elias Projahn 2022-05-12 18:43:25 +02:00
parent 5bfd20b6b6
commit 9590babb1a
2 changed files with 6 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

2
R/method_correlation.R
View file

@ -71,7 +71,7 @@ correlation <- function(summarize = stats::median) {
# Combine the correlation coefficients.
results[,
max_correlation := as.double(summarize(na.omit(
max_correlation := as.double(summarize(stats::na.omit(
# Convert the data.table subset into a
# vector to get the correct na.omit
# behavior.

8
R/method_species_adjacency.R
View file

@ -81,7 +81,7 @@ species_adjacency <- function(distance_estimate = stats::median,
species == species_id &
gene %chin% gene_ids,
combined_distance := as.numeric(
distance_estimate(na.omit(
distance_estimate(stats::na.omit(
# Convert the data.table subset into a
# vector to get the correct na.omit
# behavior.
@ -108,7 +108,9 @@ species_adjacency <- function(distance_estimate = stats::median,
data[
gene %chin% reference_gene_ids,
combined_distance := as.numeric(
distance_estimate(na.omit(as.matrix(.SD)[1, ]))
distance_estimate(stats::na.omit(
as.matrix(.SD)[1, ])
)
),
.SDcols = reference_gene_ids,
by = list(species, gene)
@ -118,7 +120,7 @@ species_adjacency <- function(distance_estimate = stats::median,
results <- data[,
.(
summarized_distances = as.numeric(
summarize(na.omit(combined_distance))
summarize(stats::na.omit(combined_distance))
)
),
by = gene