Minor changes

caravagnalab · Jul 4, 2024 · 5886c14 · 5886c14
1 parent ac32240
commit 5886c14
Show file tree

Hide file tree

Showing 3 changed files with 2 additions and 1 deletion.
diff --git a/.RData b/.RData
diff --git a/NAMESPACE b/NAMESPACE
@@ -6,4 +6,4 @@ export(test_de)
 importFrom(Rcpp,evalCpp)
 importFrom(magrittr,"%>%")
 importFrom(rlang,.data)
-useDynLib(devil)
+useDynLib(devil);
diff --git a/src/variance.cpp b/src/variance.cpp
@@ -50,6 +50,7 @@ Eigen::MatrixXd compute_clustered_meat(Eigen::MatrixXd design_matrix, Eigen::Vec
     int n = design_matrix.rows();
     int ng = clusters.maxCoeff();
     double adj = double(ng) / (ng - 1);
+    if (ng == 1) {adj = 1;}
 
     Eigen::MatrixXd rval = Eigen::MatrixXd::Zero(k, k);