transform.dependent.format.to.independent.format <- function(
data
) {
data.frame(
cell = as.vector(sapply(names(data), function(x) { rep(x, nrow(data)) }))
,measure = rmnames(unlist(c(data)))
)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.