bug in suppress warnings

de-Boer-Lab · Feb 20, 2020 · 5390a6e · 5390a6e
1 parent e524c68
commit 5390a6e
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/MAUDE.R b/R/MAUDE.R
@@ -76,7 +76,7 @@ getNBGaussianLikelihood = function(x, mu, k, sigma=1, nullModel, libFract){
   #message(sprintf("observed fractions = %s",paste(as.character(((x/k))),collapse=", ")))
   for (i in 1:nrow(nullModel)){
     #dnbinom(x = number of reads for this guide, size = number of reads total, prob= probability of getting a read at each drawing)
-    suppressWarnings(likelihood = likelihood  + dnbinom(x=x[i], size=k[i], prob =1- binFractions[i], log=T))
+    suppressWarnings({likelihood = likelihood  + dnbinom(x=x[i], size=k[i], prob =1- binFractions[i], log=T)})
   }
   return(likelihood)
 }