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

Reindent code to use just two spaces

Browse source
This commit is contained in:
Elias Projahn 2022-05-26 12:42:19 +02:00
parent a1e6147466
commit c04b6337e9
17 changed files with 1583 additions and 1582 deletions
Download patch file Download diff file Expand all files Collapse all files

3
R/method_correlation.R
View file

@ -82,7 +82,8 @@ correlation <- function(summarize = stats::median) {
] ]
# Normalize scores. # Normalize scores.
results[, results[
,
score := (max_correlation - min(max_correlation)) / score := (max_correlation - min(max_correlation)) /
(max(max_correlation) - min(max_correlation)) (max(max_correlation) - min(max_correlation))
] ]

4
R/method_species_adjacency.R
View file

@ -109,8 +109,8 @@ species_adjacency <- function(distance_estimate = stats::median,
gene %chin% reference_gene_ids, gene %chin% reference_gene_ids,
combined_distance := as.numeric( combined_distance := as.numeric(
distance_estimate(stats::na.omit( distance_estimate(stats::na.omit(
as.matrix(.SD)[1, ]) as.matrix(.SD)[1, ]
) ))
), ),
.SDcols = reference_gene_ids, .SDcols = reference_gene_ids,
by = list(species, gene) by = list(species, gene)