scale_01 <-
function(num_matrix) {
my_min <- min(num_matrix)
my_max <- max(num_matrix)
res_mat <- (num_matrix - my_min) / (my_max - my_min)
return(res_mat)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.