Nothing
#'@noRd
depth.max=function(inp){
inp=scale(inp)
#d=future.apply::future_sapply(1:nrow(inp), function(i) 1/max(abs(inp[i,])))
d=future.apply::future_sapply(1:nrow(inp), function(i) - max(abs(inp[i,])))
return(d)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.