library("treeprof")
fun3 <- function (a, b, c = 5L) {
check_args(a = numeric(), b = c_and(c_or(is.integer(b), is.character(b)),
is.matrix(b)), c = data.frame())
}
x <- profile(fun3(3, matrix(sample(1:20, 9), nrow=3), data.frame()))
print(x, id=14)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.