data(zmat_sim)
head(zmat_sim)
## Not run:
# input.to.repfdr <- ztobins(zmat_sim, 2)
# pbz_sim1 <- input.to.repfdr$pdf.binned.z
# bz_sim1 <- input.to.repfdr$binned.z.mat
#
# data(binned_zmat_sim)
# stopifnot(all.equal(pbz_sim1,pbz_sim))
# stopifnot(all.equal(bz_sim1,bz_sim))
# ## End(Not run)
#### zmat_sim was generated by the following code:
data(hmat_sim)
set.seed(12)
m <- nrow(hmat_sim)
zmat_sim1 <- matrix(rnorm(n=3*m,mean=hmat_sim*3),nrow=m,ncol=3)
data(zmat_sim)
stopifnot(all.equal(zmat_sim1,zmat_sim))
Run the code above in your browser using DataLab