R-ohjelmointi.org

Tilastotieteellistä ohjelmointia R-kielellä

Rasvaprosenttilaskuri

Tarvitsin työssäni laskuria, joka arvioi pituuden ja painon perusteella esimerkiksi henkilön rasvaprosentin, ihon pinta-alan ja energian kulutuksen. Tällaisia laskureita on tietysti internet pullollaan, mutta R:lle en sellaista onnistunut löytämään.

Funktio vaatii syötteeksi pituuden (cm), painon (kg), iän (vuotta) ja sukupuolen (male/female):

source("http://koti.mbnet.fi/tuimala/tiedostot/index.R")
# Keskimääräinen suomalainen mies
index(178, 82, 39, "male")

Tuloste näyttää seuraavalta:

Input data
--------------
Height: 178
Weight: 82
Age   : 39
Sex   : male
Date  : 2011-01-04

Indexes
-------------------------------
Body mass index     : 25.9
Body surface area   : 2.02 m2
Lean body weight    : 62.5 kg 
Body fat percentage : 23.8 %
Basal metabolic rate: 1748 kcal

Activity level    Description               Energy need
-------------------------------------------------------
Sedentery         Office work               2097 kcal
Light             Sports 1-3 days a week    2403 kcal
Moderate          Sports 3-5 days a week    2709 kcal
High              Sports 6-7 days a week    3015 kcal
Extreme           Sports 2 times a day      3321 kcal

Kehon pinta-ala arvioidaan tässä Haycock:in menetelmällä, kehon rasvaton paino Deurenberg:in kaavalla, ja perusaineenvaihdunta Mifflin:in ja St Jeor:in menetelmällä.


Vastaa

Sähköpostiosoitettasi ei julkaista. Pakolliset kentät on merkitty *