# NOT RUN {
z_from_dz(1,c(2,3))
z_from_dz(1,c(0.2,0.03))
z_from_dz(1,c(0.2,0.03,0.004))
dz <-runif(3, # sample size
0.01, # lower bound
1 # upper bound
)
w <- rnorm(1,
0,
1
)
z_from_dz(w,dz )
# }
Run the code above in your browser using DataLab