Nothing
N <- 100
G <- 80
G_de <- 10
G_pst <- 20
G_pst_beta <- 30
G_de_pst_beta <- 20
thin <- 5
sim <- simulate_phenopath(N, G, G_de, G_pst, G_pst_beta, G_de_pst_beta)
fit <- phenopath(sim$y, sim$x, elbo_tol = 1e-3,
thin = thin, verbose = FALSE)
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.