maxByRow <- function(..., na.rm ) { data <- as.matrix(cbind(...)) out <- matrixStats::rowMaxs(data, na.rm = na.rm) out[out==-Inf] <- NA return(out) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.