#' Calculate frequencies for character objects
#'
#' @param variable variable-object
#' @param time Time variable if long data
jstat.numeric <- function(variable, time=NULL)
{
main <- function() {
l <- list(long = FALSE, # TODO: implement time-dependend density...
densit = .density(variable$data_table$valid),
md5 = md5(variable$data_table$valid))
l
}
.density <- function(valid) {
d <- density(valid, n = 50, na.rm = TRUE)
d$call <- NULL
d$x <- round(d$x, 4)
d$y <- round(d$y, 4)
d
}
main()
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.