cloud <- ichimoku(sample_ohlc_data, ticker = "TKR")
stratlist <- autostrat(cloud, n = 3, quietly = TRUE)
look(stratlist)
strat <- stratlist[[2]]
summary(strat)
autostrat(cloud, n = 1, dir = "short", level = 2)
autostrat(cloud, n = 1, dir = "long", level = 3)
Run the code above in your browser using DataLab