# x <- num_long
# setcolorder(x, c(2,1,3))
# setnames(x, c('class1', 'class2', 'value3'))
# a <- CT(x, source = 2, target = 1, value = 3)
# str(a)
#
# b <- CT(num_mat_wide)
# str(b)
# CT_to_long(num_mat_wide)
#
# c <- CT(copy(x))
# c <- c[, value := runif(.N)]
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.