#' A function to compute the max by col
#'
#' Simpler helper function.
#'
#' @param x Input array.
#' @param margin Margin.
#' @return colMaxs(x, margin)
#' @export
colMaxs = function(x, margin=2){
m = apply(x, MARGIN=c(margin), max, na.rm=TRUE)
return(m)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.