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

Fix some package issues

Browse source
This commit is contained in:
Elias Projahn 2021-11-23 09:42:21 +01:00
parent 599f09a52f
commit f2bc4318a2
3 changed files with 6 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

5
R/neural.R
View file

@ -133,7 +133,10 @@ neural <- function(preset, progress = NULL, seed = 49641) {
colnames(data_matrix) <- NULL colnames(data_matrix) <- NULL
data_matrix <- keras::normalize(data_matrix) data_matrix <- keras::normalize(data_matrix)
data[gene %chin% gene_ids, score := predict(model, data_matrix)] data[
gene %chin% gene_ids,
score := stats::predict(model, data_matrix)
]
if (!is.null(progress)) { if (!is.null(progress)) {
progress_buffer <<- progress_buffer + progress_step progress_buffer <<- progress_buffer + progress_step

2
R/ranking.R
View file

@ -75,7 +75,7 @@ optimal_weights <- function(analysis, methods, reference_gene_ids,
} else if (target == "mean") { } else if (target == "mean") {
mean(rank) mean(rank)
} else { } else {
median(rank) stats::median(rank)
}] }]
if (result > 0) { if (result > 0) {

3
man/preset.Rd
View file

@ -5,8 +5,7 @@
\title{Create a new preset.} \title{Create a new preset.}
\usage{ \usage{
preset( preset(
methods = c("clusteriness", "clusteriness_positions", "correlation", methods = c("clusteriness", "correlation", "neural", "proximity"),
"correlation_positions", "neural", "proximity"),
species_ids = NULL, species_ids = NULL,
gene_ids = NULL, gene_ids = NULL,
reference_gene_ids = NULL, reference_gene_ids = NULL,