imgRowMins <- function(x) {
args <- paste("x[,,",1:dim(x)[3],"]",sep="",collapse=",")
command <- paste("pmin(",args,")")
eval(parse(text=command))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.