mirror of
https://github.com/FlipsideCrypto/ethusdc-retroactive.git
synced 2026-02-06 10:47:07 +00:00
21 lines
505 B
R
21 lines
505 B
R
library(dplyr)
|
|
options(scipen = 10)
|
|
|
|
ethbtc_results <- readRDS("ethbtc/ethbtc_results.rds")
|
|
|
|
n = nrow(ethbtc_results)
|
|
|
|
table(ethbtc_results$pnl_btc_terms > 0)/n
|
|
table(ethbtc_results$pnl_eth_terms > 0)/n
|
|
|
|
table(ethbtc_results$pnl_btc_terms > 0 & ethbtc_results$pnl_eth_terms > 0)/n
|
|
|
|
table(ethbtc_results$strat_btc_terms > ethbtc_results$hodl_btc_terms)/n
|
|
|
|
table(ethbtc_results$strat_btc_terms > ethbtc_results$hodl_btc_terms &
|
|
ethbtc_results$strat_eth_terms > ethbtc_results$hodl_eth_terms)/n
|
|
|
|
|
|
|
|
|