iz(z(1:10, limits = c(2, 8)), limits = c(2, 8))
# from Hoffmann et al. 2017
albuminzlog <- c(-0.15, -2.25, -1.15, 0.08, 1.57, -0.15, -4.53, -3.16, -5.70)
izlog(albuminzlog, limits = c(35, 52))
bilirubinzlog <- c(0.85, 0.57, -1.96, -0.43, 2.04, 3.12, 2.90, 5.72, 1.88)
limits <- cbind(
lower = rep(c(35, 2), c(length(albuminzlog), length(bilirubinzlog))),
upper = rep(c(52, 21), c(length(albuminzlog), length(bilirubinzlog)))
)
izlog(c(albuminzlog, bilirubinzlog), limits = limits)
Run the code above in your browser using DataLab