Browse code

Update utilities.R

keep orginal mcols in summaryFeatures

Ellis Patrick authored on 02/08/2022 02:47:02 • GitHub committed on 02/08/2022 02:47:02
Showing 1 changed files

... ...
@@ -586,7 +586,7 @@
586 586
     featuresInfo <- DataFrame(originalFeatures, renamedInfo)
587 587
     colnames(featuresInfo) <- c("Original Feature", "Renamed Feature")
588 588
   }
589
-  featuresInfo
589
+  cbind(originalInfo, featuresInfo)
590 590
 }
591 591
 
592 592
 # Function to identify the parameters of an S4 method.
... ...
@@ -776,4 +776,4 @@
776 776
 
777 777
 .dmvnorm_diag <- function(x, mean, sigma) { # Remove once sparsediscrim is reinstated to CRAN.
778 778
   exp(sum(dnorm(x, mean=mean, sd=sqrt(sigma), log=TRUE)))
779
-}
780 779
\ No newline at end of file
780
+}