johrpan/geposan
1
0
Fork 0
mirror of https://github.com/johrpan/geposan.git synced 2025-10-26 10:47: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. # Combine the correlation coefficients.
results[, results[,
max_correlation := as.double(summarize(na.omit( max_correlation := as.double(summarize(stats::na.omit(
# Convert the data.table subset into a # Convert the data.table subset into a
# vector to get the correct na.omit # vector to get the correct na.omit
# behavior. # behavior.

8
R/method_species_adjacency.R
View file

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