Sum of utxo in bkfee

bpfaff · Sep 4, 2018 · 4cb03c4 · 4cb03c4
1 parent dd50bd4
commit 4cb03c4
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/UtilFuncs.R b/R/UtilFuncs.R
@@ -337,7 +337,7 @@ txfee <- function(con, txid){
 bkfee <- function(con, height){
     height <- as.integer(abs(height))
     cb <- txids(con, height, excoinbase = FALSE)[1]
-    mtot <- utxovalue(con, cb)
+    mtot <- sum(utxovalue(con, cb))  
     hf <- ceiling(height / 209999) - 1
     hf <- 2 ^ hf
     mrwd <- 50 / hf