data(zmat)
input3 <- ztobins(zmat, 3, plot = FALSE)
pbz <- input3$pdf.binned.z
bz <- input3$binned.z.mat
out <- repfdr(pbz,bz,"replication",
control = em.control(pi.initial = c(0.48,rep(0.02,26)),
verbose = TRUE, nr.threads = 1))
# convergence after 194 iterations; iterations are printed; run bit slower (1 thread)
Run the code above in your browser using DataLab