SerumPotassium | R Documentation |
Sample of 152 serum potassium levels.
data("SerumPotassium")
A numeric vector of 152 serum potassium levels.
The data are taken from Rice (2007) who obtained the data from Martin, Gudzinowicz and Fanger (1975) and reports them rounded to one digit.
Page 350 in Rice (2007).
Rice JA (2007). Mathematical Statistics and Data Analysis, 3rd ed. Duxbury, Belmont, CA.
Martin HF, Gudzinowicz BJ, Fanger H (1975). Normal Values in Clinical Chemistry: A Guide to Statistical Analysis of Laboratory Data. Marcel Dekker, New York.
library("topmodels")
data("SerumPotassium", package = "countreg")
## Figure 9.3a-c from Rice (2007), and actual hanging rootogram
## (note that Rice erroneously refers to suspended rootograms as hanging)
br <- 32:54/10 - 0.05
rootogram(lm(SerumPotassium ~ 1), scale = "raw", style = "standing",
breaks = br, col = "transparent")
rootogram(lm(SerumPotassium ~ 1), scale = "raw", style = "suspended",
breaks = br, col = "transparent", ylim = c(2.8, -4))
rootogram(lm(SerumPotassium ~ 1), scale = "sqrt", style = "suspended",
breaks = br, col = "transparent", ylim = c(1, -1.5))
rootogram(lm(SerumPotassium ~ 1), breaks = br)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.