# NOT RUN {
dat <- lfmm_sampler(n = 100,
p = 1000,
K = 3,
outlier.prop = 0.1,
cs = c(0.8),
sigma = 0.2,
B.sd = 1.0,
B.mean = 0.0,
U.sd = 1.0,
V.sd = 1.0)
# }
Run the code above in your browser using DataLab