library(symbolicQspray)
n <- 2L
lambda <- c(3L, 1L)
Pl <- jack:::JackSymPolRcpp(n, lambda)
P <- symbolicQspray:::symbolicQspray_from_list(Pl)
P
jack::JackPolR(n, lambda, gmp::as.bigq(2))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.