Nothing
# Generated by using Rcpp::compileAttributes() -> do not edit by hand
# Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393
edina_Gibbs_Q <- function(Y, K, burnin = 1000L, chain_length = 10000L) {
.Call(`_edina_edina_Gibbs_Q`, Y, K, burnin, chain_length)
}
check_identifiability <- function(Q) {
.Call(`_edina_check_identifiability`, Q)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.