From d275cc9cb6830fd1c61a97a778b65442204dc0a9 Mon Sep 17 00:00:00 2001 From: ansonrel <48788433+ansonrel@users.noreply.github.com> Date: Fri, 19 Apr 2024 14:55:53 +0200 Subject: [PATCH] fix adt_marker_select subset when using quantile_clip --- R/ADTnorm.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/R/ADTnorm.R b/R/ADTnorm.R index e805e99..3974984 100644 --- a/R/ADTnorm.R +++ b/R/ADTnorm.R @@ -215,12 +215,12 @@ ADTnorm = function(cell_x_adt = NULL, cell_x_feature = NULL, save_outpath = NULL if(quantile_clip < 1){ - quant = quantile(cell_x_adt[[adt_marker_select]], quantile_clip, na.rm = TRUE) + quant = quantile(cell_x_adt[,adt_marker_select], quantile_clip, na.rm = TRUE) if(verbose){ print(paste0("Performing quantile clip to remove outliers beyond the claimed quantile ", quantile_clip, ":", quant, "......")) } - cell_x_adt[[adt_marker_select]][which(cell_x_adt[[adt_marker_select]] > quant)] <- NA + cell_x_adt[,adt_marker_select][which(cell_x_adt[,adt_marker_select] > quant)] <- NA } ## smallest bw for density curve