Update VariantSummary.R

Fix a typo deprecated
chenweng1991 · Mar 6, 2024 · 93332c6 · 93332c6
1 parent b6bddc5
commit 93332c6
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/VariantSummary.R b/R/VariantSummary.R
@@ -13,7 +13,7 @@
 #' @import dplyr
 DepthSummary<-function(path,CellSubset=NA,only_Total=T){
     message("By default only total depth is summarized")
-    message("Depprecated ")
+    message("deprecated")
     QualifiedTotalCts<-read.table(paste(path,"/QualifiedTotalCts",sep=""))
     if(!is.na(CellSubset)){
       print("Will subset cells...")
@@ -315,4 +315,4 @@ res<-Specific %>% group_by(V2) %>% dplyr::summarise(Specific=n()) %>% merge(res,
 res<-res %>% mutate(VerySensitive=VerySensitive/Total) %>% mutate(Sensitive=Sensitive/Total) %>% mutate(Specific=Specific/Total)
 colnames(res)[1]<-"Cell"
 return(res)
-}
+}