suv.RdThe lean body mass (LBM) is calculated according to the formula $$1.1\cdot\mbox{weight}-128\cdot(\mbox{weight}/\mbox{height})^2$$ if male and $$1.07\cdot\mbox{weight}-148\cdot(\mbox{weight}/\mbox{height})^2$$ if female.
leanBodyMass(height, weight, gender)
hotSpotSUV(suv, radius = 10, type = "3D")
totalSUV(suv, mask, z, bg, local = TRUE)| height | is a vector of heights in centimeters. |
|---|---|
| weight | is a vector of weights in kilograms. |
| gender | is a character vector (may be of length one) with the value “male” or “female”. |
| suv | is the standard uptake value (SUV). |
| radius | is the desired hotspot radius (units = voxels). |
| type | is a character string (acceptable values are |
| mask | is a multidimensional array of logical values. |
| z | is the slice index. |
| bg | is the estimated background SUV. |
| local | is a logical value. |
Vector of lean body mass values in kilograms.
...
Brandon Whitcher bwhitcher@gmail.com
Brandon Whitcher bwhitcher@gmail.com
Sugawara, Y., K. R. Zasadny, A. W. Neuhoff, R. L. Wahl (1999) Reevaluation of the Standardized Uptake Value for FDG: Variations with Body Weight and Methods for Correction, Radiology 213: 521--525.
leanBodyMass
library(oro.pet)
n <- 11
h <- seq(200, 150, length=n)
w <- seq(80, 120, length=n)
cbind(h, w, leanBodyMass(h, w, "male"), leanBodyMass(h, w, "female"))
#> h w
#> [1,] 200 80 67.52000 61.92000
#> [2,] 195 84 68.64805 62.41680
#> [3,] 190 88 69.34205 62.41175
#> [4,] 185 92 69.54501 61.83892
#> [5,] 180 96 69.19111 60.62222
#> [6,] 175 100 68.20408 58.67347
#> [7,] 170 104 66.49522 55.89010
#> [8,] 165 108 63.96099 52.15240
#> [9,] 160 112 60.48000 47.32000
#> [10,] 155 116 55.90934 41.22768
#> [11,] 150 120 50.08000 33.68000