Update nonstandard fee data to 2023-10-25

Monero-Nonstandard-Fees/code/Exodus-txs-release-fix-plot.R

@@ -8,11 +8,11 @@ fee.clusters <- read.csv("Monero-Nonstandard-Fees/data/fee-clusters-by-day.csv",
 
 exodus <- data.frame(block_timestamp_date = fee.clusters$block_timestamp_date, exodus.txs = fee.clusters$X24_34_44_fee, stringsAsFactors = FALSE)
 
-exodus$Week <- factor(c(rep(NA, 3), paste0("Week starting ",
+exodus$Week <- factor(c(rep(NA, 4), paste0("Week starting ",
-  rep(exodus$block_timestamp_date[-(1:3)][seq(1, nrow(exodus) - 3, by = 7)], each = 7))))
+  rep(exodus$block_timestamp_date[-(1:4)][seq(1, nrow(exodus) - 4, by = 7)], each = 7))))
-# Note: If data newer than 2023-10-17, then must change this
+# Note: If data newer than 2023-10-25, then must change this
 
-exodus$day.of.week <- lubridate::wday(as.Date(exodus$block_timestamp_date), label = TRUE, week_start = "Wednesday")
+exodus$day.of.week <- lubridate::wday(as.Date(exodus$block_timestamp_date), label = TRUE, week_start = "Thursday")
 
 exodus <- exodus[(nrow(exodus) - 7*8 + 1):nrow(exodus), ]
 
@@ -25,7 +25,7 @@ ggplot(exodus, aes(x = day.of.week, y = exodus.txs, col = Week, group = Week)) +
   geom_line() + geom_point() + expand_limits(y = 0) +
   labs(title = "Number of Monero transactions with 0.00024060, 0.00034245, or\n0.00044430 XMR total fee (suspected Exodus Desktop wallet transactions)",
     x = "Day of week (by UTC time)", y = "Number of transactions per day",
-    caption = "New version of Exodus Desktop with standard fee calculations was released 2023-10-10") +
+    caption = "New version of Exodus Desktop with standard fees was released Tuesday 2023-10-10") +
   annotate("text", y = 0, x = 6, label = "github.com/Rucknium", size = 6) +
   theme(plot.caption = element_text(color = "red"))
 

Monero-Nonstandard-Fees/data/fee-clusters-by-day.csv

@@ -429,3 +429,11 @@
 2023-10-15,17952,407,881,49,253,34,2.2671568627451,4.9075311942959,0.27295008912656,1.4093137254902,0.189393939393939
 2023-10-16,22941,355,1182,60,301,65,1.54744780088052,5.15234732574866,0.261540473388257,1.31206137483109,0.283335512837278
 2023-10-17,22056,327,1169,85,282,70,1.48258977149075,5.30014508523758,0.38538266231411,1.27856365614799,0.317373957199855
+2023-10-18,20651,321,1053,64,255,64,1.55440414507772,5.09902668151663,0.309912352912692,1.23480703113651,0.309912352912692
+2023-10-19,22733,290,1003,57,231,46,1.27567852901069,4.41208815378525,0.250736814322791,1.0161439317292,0.202349008049971
+2023-10-20,22981,327,1138,67,220,51,1.4229145816109,4.95191680083547,0.291545189504373,0.957312562551673,0.221922457682433
+2023-10-21,16369,207,892,64,207,30,1.26458549697599,5.44932494349074,0.39098295558678,1.26458549697599,0.183273260431303
+2023-10-22,17130,255,972,39,187,57,1.48861646234676,5.67425569176883,0.227670753064799,1.09165207238762,0.332749562171629
+2023-10-23,21537,364,1233,59,263,64,1.69011468635372,5.72503134141245,0.27394716070019,1.22115429261271,0.297163021776478
+2023-10-24,21922,326,1266,76,232,85,1.48709059392391,5.77502052732415,0.346683696742998,1.05829760058389,0.387738345041511
+2023-10-25,20542,403,1055,63,269,57,1.96183429072145,5.13581929704995,0.306688735274073,1.30951221886866,0.27748028429559

Monero-Nonstandard-Fees/data/fee-clusters-by-week.csv

@@ -61,4 +61,5 @@
 "2023-39",136061,1997,6748,461,3922,397,1.46772403554288,4.95954020623103,0.338818618119814,2.88253062964406,0.291780892393853
 "2023-40",146317,2034,6985,465,4013,442,1.39013238379682,4.77388136716855,0.317803126089245,2.74267515052933,0.302083831680529
 "2023-41",139272,2146,6798,516,2833,386,1.54086966511574,4.88109598483543,0.370498018266414,2.03414900338905,0.277155494284565
-"2023-42",44997,682,2351,145,583,135,1.51565659932884,5.22479276396204,0.322243705135898,1.29564193168433,0.300020001333422
+"2023-42",144861,2082,7409,436,1683,383,1.43723983680908,5.11455809362078,0.300978179082017,1.16180338393356,0.264391382083515
+"2023-43",64001,1093,3554,198,764,206,1.70778581584663,5.5530382337776,0.309370166091155,1.19373134794769,0.321869970781707