diff --git a/R/getFittedValues.R b/R/getFittedValues.R index 7d59c91..4bcfba2 100644 --- a/R/getFittedValues.R +++ b/R/getFittedValues.R @@ -106,7 +106,7 @@ getFittedValues <- function(test.dyn.res = NULL, } if (log1p.norm) { gene_df <- dplyr::mutate(gene_df, - expression_log1p = log1p(rna), + rna_log1p = log1p(rna), scLANE_pred_log1p = log1p(scLANE_pred), scLANE_ci_ll_log1p = log1p(scLANE_ci_ll), scLANE_ci_ul_log1p = log1p(scLANE_ci_ul)) diff --git a/R/marge2.R b/R/marge2.R index f459f77..710c4ed 100644 --- a/R/marge2.R +++ b/R/marge2.R @@ -166,7 +166,7 @@ marge2 <- function(X_pred = NULL, X_red2 <- max_span(X_red = X, q = q) X_red <- intersect(X_red1, X_red2) if (length(X_red) > n.knot.max) { - set.seed(as.integer(length(X_red))) + set.seed(as.integer(mean(Y))) X_red <- sample(X_red, size = n.knot.max) } } else {