best_path <- function(sociomatrix, source = NULL, target = NULL, p_norm = 1){
check_input(sociomatrix, path = NULL, source, target, p_norm)
return(shortest_path(1/sociomatrix,source, target, p_norm)) #shortest path is an internal function
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.