From 8677c5ca7bc406e4af02f272fbcf1d65d6dae647 Mon Sep 17 00:00:00 2001
From: Cindy van Velthoven <43354945+cvanvelt@users.noreply.github.com>
Date: Tue, 7 Jan 2025 17:59:06 -0800
Subject: [PATCH] Update vg.R

added explicit call for scaled_data to compute_vg_stats
---
 R/vg.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/vg.R b/R/vg.R
index c1a32e8..4911c34 100644
--- a/R/vg.R
+++ b/R/vg.R
@@ -118,7 +118,7 @@ find_vg <- function(dat,
 #' 
 compute_vg_stats <- function(dat,
                              verbose = FALSE) {
-  
+  scaled_data = dat
   if(verbose) { cat("Computing scaled means\n") }
   means <- gene_means(scaled_data)