From 11a2b8532b7b30d881a84e1e556bb583d22a7f45 Mon Sep 17 00:00:00 2001
From: dereckmezquita <dereck@mezquita.io>
Date: Sat, 13 Jul 2024 22:19:26 -0500
Subject: [PATCH] Using installed package to test.

---
 dev/pca/pca-comparison.R | 10 +++-------
 1 file changed, 3 insertions(+), 7 deletions(-)

diff --git a/dev/pca/pca-comparison.R b/dev/pca/pca-comparison.R
index 67542d9..5cfecb7 100644
--- a/dev/pca/pca-comparison.R
+++ b/dev/pca/pca-comparison.R
@@ -1,12 +1,8 @@
 box::use(dt = data.table)
-box::use(./R/Comparisons[ Comparison ])
-box::use(./R/Pca[ Pca ])
+box::use(dmplot[ Pca, Comparison ])
+data(feature_counts, package = "dmplot")
 
-data <- dt$fread("dev/data/feature-counts-genes.csv")
-
-# config <- R$parse_comparisons("./dev-data/comparisons.xlsx")
-
-data <- data[GeneBiotype == "protein_coding", ]
+data <- feature_counts[GeneBiotype == "protein_coding", ]
 
 colnames(data)[1] <- "feature"