`PathList` <- function(C,D){ L <- nrow(C) for(i in D:1) { L <- c(C[L[1],i],L) } return(L) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.