Last chance! 50% off unlimited learning
Sale ends in
z(1:10, limits = c(2, 8))
# from Hoffmann et al. 2017
albumin <- c(42, 34, 38, 43, 50, 42, 27, 31, 24)
zlog(albumin, limits = c(35, 52))
bilirubin <- c(11, 9, 2, 5, 22, 42, 37, 200, 20)
limits <- cbind(
lower = rep(c(35, 2), c(length(albumin), length(bilirubin))),
upper = rep(c(52, 21), c(length(albumin), length(bilirubin)))
)
zlog(c(albumin, bilirubin), limits = limits)
Run the code above in your browser using DataLab