library(lme4)
gene.mean = 100
cell.sd = 10
technical.sd = 20
cell.means = rnorm(48,mean=gene.mean,sd=cell.sd)
y <- rnorm(48*2,mean=rep(cell.means,each=2),sd=technical.sd)
cell <- factor(rep(1:48,each=2))
res <- lmer(y ~ 1 | cell)
estimated_cell_sd=attr(summary(res)$varcor[["cell"]],"stddev")