Ecosystem/misc-research
1
0
Fork 0
mirror of https://github.com/Rucknium/misc-research.git synced 2024-12-22 11:29:22 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Printing more statistics

Browse source
This commit is contained in:
Rucknium 2022-03-02 18:36:23 +00:00
parent cb86c10523
commit 07d1888a00
2 changed files with 21 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

26
CashFusion-Descendant-Analysis/R/descendant-statistics.R
View file

@ -43,8 +43,13 @@ for (file.iter in tx.graph.files) {
master.edgelist <- DBI::dbGetQuery(con,
"SELECT origin_index, destination_index FROM edgelist_intermediate_2")
str(master.edgelist)
master.edgelist <- as.matrix(master.edgelist)
data.table::uniqueN(c(master.edgelist))
utxo.set <- setdiff(master.edgelist[, 2], master.edgelist[, 1])
rm(master.edgelist)
@ -83,20 +88,23 @@ utxoset.value.extended <- DBI::dbGetQuery(con,
colnames(utxoset.value.extended) <- c("txid_position", "tx_graph_index", "value")
utxoset.value.extended$is_cashfusion_descendant <- ifelse(
utxoset.value.extended$destination_index %in% touched.UTXO, 1L, 0L)
utxoset.value.extended$tx_graph_index %in% touched.UTXO, 1L, 0L)
unspent_coinbases <- readRDS(paste0(data.dir, "unspent_coinbases.rds"))
unspent.coinbases <- readRDS(paste0(data.dir, "unspent_coinbases.rds"))
unspent_coinbases$tx_graph_index <- NA_integer_
unspent_coinbases$is_coinbase <- 1L
unspent_coinbases$is_cashfusion_descendant <- 0L
nrow(unspent.coinbases)
unspent.coinbases$tx_graph_index <- NA_integer_
unspent.coinbases$is_coinbase <- 1L
unspent.coinbases$is_cashfusion_descendant <- 0L
utxoset.value.extended$is_coinbase <- 0L
utxoset.value.extended <- rbind(
utxoset.value.extended[, c("txid_position", "tx_graph_index", "value", "is_cashfusion_descendant", "is_coinbase")],
unspent_coinbases[, c("txid_position", "tx_graph_index", "value", "is_cashfusion_descendant", "is_coinbase")]
unspent.coinbases[, c("txid_position", "tx_graph_index", "value", "is_cashfusion_descendant", "is_coinbase")]
)
@ -109,10 +117,12 @@ utxoset.value.aggregated <- aggregate(utxoset.value.extended$value[
by = list(utxoset.value.extended$is_cashfusion_descendant[
utxoset.value.extended$value > 0 ]), FUN = sum)
100 * utxoset.value.aggregated$x / sum(utxoset.value.aggregated$x)
utxoset.value.aggregated$percent <- 100 * utxoset.value.aggregated$x / sum(utxoset.value.aggregated$x)
utxoset.value.aggregated
saveRDS(utxoset.value.extended, file = paste0(data.dir, "CashFusion-Descendants.rds"), row.names = FALSE)
saveRDS(utxoset.value.extended, file = paste0(data.dir, "CashFusion-Descendants.rds"))
write.csv(utxoset.value.extended, file = paste0(data.dir, "CashFusion-Descendants.csv"), row.names = FALSE)

3
CashFusion-Descendant-Analysis/R/get-coinbases.R
View file

@ -89,6 +89,9 @@ for (height.set in heights.to.process) {
coinbases <- data.table::rbindlist(coinbases)
nrow(coinbases)
coinbases$txid_position <- paste0(coinbases$txid, "-",
formatC(coinbases$position, width = 4, format = "f", flag = "0", digits = 0))