renko_add_bricks <- function(data, size){ require(data.table) data[, step := 1:.N] data2 <- copy(data) data2[, base := size] data <- rbindlist(list(data, data2)) return(data) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.