### ash error
ll <- get(load("ash_error_list.rda"))
m <- ll$m
betahat <- ll$betahat
sebetahat <- ll$sebetahat
ashr::ash(betahat, sebetahat)
library(ashr)
comp_postmean(m, betahat, sebetahat)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.