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

Create analysis-monero-PR-8047-prevent-duplicate-outs.R

Browse source
This commit is contained in:
Rucknium 2021-11-12 12:53:07 +00:00 committed by GitHub
parent 9ff4d51bed
commit f98b994f67
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 59 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

59
monero-PR-8047-prevent-duplicate-outs/analysis-monero-PR-8047-prevent-duplicate-outs.R Normal file
View file

@ -0,0 +1,59 @@
# install.packages("RPostgreSQL")
# install.packages("data.table")
library(RPostgreSQL)
library(data.table)
dbDriver("PostgreSQL")
drv <- dbDriver("PostgreSQL")
dbname.arg <- ""
host.arg <- ""
port.arg <- # numeric
user.arg <- ""
password.arg <- ""
con <- dbConnect(drv, dbname = dbname.arg,
host = host.arg, port = port.arg,
user = user.arg, password = password.arg)
dbListTables(con)
xmr.tx <- dbGetQuery(con, "SELECT * FROM tx_input_list")
setDT(xmr.tx)
xmr.tx[, unique.tx := paste(vin_amount, amount_index, sep = "-")]
xmr.tx.collisions <- xmr.tx[, .(
collision.index = anyDuplicated(unique.tx),
n.inputs = uniqueN(vin_index)),
by = .(block_height, tx_index)]
setorder(xmr.tx.collisions, block_height, tx_index)
prop.table(table(xmr.tx.collisions$collision.index != 0))
xmr.tx.collisions[, block.interval := cut(block_height, 100)]
xmr.tx.collisions[, .(prop.collisions = 100 * mean(collision.index != 0)), by = .(block.interval)]
xmr.tx.collisions[n.inputs <= 2, .(prop.collisions = 100 * mean(collision.index != 0)), by = .(block.interval)]
prop.table(table(xmr.tx.collisions$collision.index[xmr.tx.collisions$n.inputs <= 2] != 0))
xmr.tx.collisions[n.inputs == 2, .(prop.collisions = 100 * mean(collision.index != 0)), by = .(block.interval)]
prop.table(table(xmr.tx.collisions$collision.index[xmr.tx.collisions$n.inputs == 2] != 0))
xmr.tx.collisions[n.inputs == 1, .(prop.collisions = 100 * mean(collision.index != 0)), by = .(block.interval)]
prop.table(table(xmr.tx.collisions$collision.index[xmr.tx.collisions$n.inputs == 1] != 0))