scaleproc <- function (arr) {
if (!is.numeric(arr) || length(dim(arr)) != 3)
stop("please provide 3D numeric array")
out <- .Call("scaleprocCpp",arr)
return(out)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.