library(mashr)
simdata = simple_sims(n_effects,n_cond,1)
data = mash_set_data(simdata$Bhat, simdata$Shat)
library(mashr)
U.c = cov_canonical(data)
print(names(U.c))
library(mashr)
m.c = mash(data, U.c)
library(mashr)
simdata = simple_sims(n_effects,n_cond,1)
data = mash_set_data(simdata$Bhat, simdata$Shat)
library(mashr)
U.c = cov_canonical(data)
print(names(U.c))
library(mashr)
m.c = mash(data, U.c)