dt <- clean_logs(import_logs())
metrics <- compute_metrics(dt)
datatable(metrics)
plot_monthly_returns_heatmap(calculate_calendar_returns(dt)$calendar_returns,calculate_calendar_returns(dt)$yearly_returns )

plot_returns_distribution(dt, "profit_loss_percent")

create_frequency_table(dt, "profit_loss_percent")
## bin_start bin_end count proportion
## <num> <num> <int> <char>
## 1: -0.5056698 -0.48300 8 0.74%
## 2: -0.4830000 -0.46100 0 0.00%
## 3: -0.4610000 -0.43800 1 0.09%
## 4: -0.4380000 -0.41500 1 0.09%
## 5: -0.4150000 -0.39300 0 0.00%
## 6: -0.3930000 -0.37000 0 0.00%
## 7: -0.3700000 -0.34700 0 0.00%
## 8: -0.3470000 -0.32500 0 0.00%
## 9: -0.3250000 -0.30200 1 0.09%
## 10: -0.3020000 -0.27900 2 0.18%
## 11: -0.2790000 -0.25700 1 0.09%
## 12: -0.2570000 -0.23400 2 0.18%
## 13: -0.2340000 -0.21100 4 0.37%
## 14: -0.2110000 -0.18900 5 0.46%
## 15: -0.1890000 -0.16600 11 1.01%
## 16: -0.1660000 -0.14300 10 0.92%
## 17: -0.1430000 -0.12100 25 2.31%
## 18: -0.1210000 -0.09780 20 1.85%
## 19: -0.0978000 -0.07520 25 2.31%
## 20: -0.0752000 -0.05250 46 4.24%
## 21: -0.0525000 -0.02980 71 6.55%
## 22: -0.0298000 -0.00716 76 7.01%
## 23: -0.0071600 0.01550 147 13.56%
## 24: 0.0155000 0.03820 172 15.87%
## 25: 0.0382000 0.06080 110 10.15%
## 26: 0.0608000 0.08350 44 4.06%
## 27: 0.0835000 0.10600 273 25.18%
## 28: 0.1060000 0.12900 11 1.01%
## 29: 0.1290000 0.15200 7 0.65%
## 30: 0.1520000 0.17400 2 0.18%
## 31: 0.1740000 0.19700 3 0.28%
## 32: 0.1970000 0.22000 3 0.28%
## 33: 0.2200000 0.24200 0 0.00%
## 34: 0.2420000 0.26500 1 0.09%
## 35: 0.2650000 0.28800 0 0.00%
## 36: 0.2880000 0.33100 2 0.18%
## bin_start bin_end count proportion
plot_correlation_heatmap(dt)

stat_metrics <- compute_statistical_metrics(dt)
datatable(stat_metrics)
plot_trades_scatter(dt)