downsize_matrix = function(M, RowSample = 1, ColSample = 1){
row.index = seq(1, dim(M)[1], RowSample)
col.index = seq(1, dim(M)[2], ColSample)
M1 = M[row.index, col.index]
return(M1)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.