getpropX <- function(obj, choices){
eigs <- eigenvals(obj)
pop <- round(eigs/sum(eigs)*100, 2)
labx <- paste0("(", pop[choices[1]], "%)")
return(labx)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.