fix

Zilong-Li · Mar 26, 2024 · e5da134 · e5da134
1 parent 1e2cec8
commit e5da134
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/R/common.R b/R/common.R
@@ -86,6 +86,7 @@ F1 <- function(a, b) {
       return(NA)
     }
   }
+  o <- as.matrix(o)
   if(all(dim(o)==c(4,4))) o <- o[1:3,1:3]
   if(all(dim(o)!=c(3,3))) {
     warning("F1 should be used only for a sample with genotypes of all types, hom ref(0), het(1) and hom alt(2)")
@@ -124,6 +125,7 @@ NRC <- function(a, b) {
       return(NA)
     }
   }
+  o <- as.matrix(o)
   if(all(dim(o)==c(4,4))) o <- o[1:3,1:3]
   if(all(dim(o)!=c(3,3))) {
     print(o)