find.time <- function (x) { r <- Find(function (y) !is.na(as.integer(y)), split.line(x)) as.integer(r) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.