## Predictive Equations of Basal Metabolic Rate

Basal metabolic rate (BMR) is the minimal energy in awake. The basal metabolism reference value and the predictive equations of National Institute of Health and Nutrition are reliable in Japanese and the predictive equations of Schofield and FAO/WHO/UNU are internationally common, respectively.

Curiously, the result was too small when I assigned weight and height into predictive equation of FAO/WHO/UNU in the age group of 18-29 year-old female. Although I have obtained the original article and reviewed the contents, I could not find the predictive equations. They seem to calculate BMR from Schofield’s predictive equations.

Predictive equations for BMR (upper: male, lower: female)
Name Age Equation
National Institute of Health and Nutrition $(0.0481 \times W + 0.0234 \times H - 0.0138 \times A - 0.4235) \times 1000/4.186$ $(0.0481 \times W + 0.0234 \times H - 0.0138 \times A - 0.9708) \times 1000/4.186$
Harris-Benedict $66.4730 + 13.7516 \times W + 5.0033 \times H - 6.7550 \times A$ $655.0955 + 9.5634 \times W + 1.8496 \times H - 4.6756 \times A$
Schofield <3 $(0.249 \times W - 0.127) \times 1000/4.186$ $(0.244 \times W - 0.130) \times 1000/4.186$
3-10 $(0.095 \times W + 2.110) \times 1000/4.186$ $(0.085 \times W + 2.033) \times 1000/4.186$
10-18 $(0.074 \times W + 2.754) \times 1000/4.186$ $(0.056 \times W + 2.898) \times 1000/4.186$
18-29 $(0.063 \times W + 2.896) \times 1000/4.186$ $(0.062 \times W + 2.036) \times 1000/4.186$
30-59 $(0.048 \times W + 3.653) \times 1000/4.186$ $(0.034 \times W + 3.538) \times 1000/4.186$
60- $(0.049 \times W + 2.459) \times 1000/4.186$ $(0.038 \times W + 2.755) \times 1000/4.186$
FAO/WHO/UNU 18-29 $(64.4 \times W - 113.0 \times H/100 + 3000)/4.186$ $(55.6 \times W - 1397.4 \times H/100 + 148)/4.186$
30-59 $(47.2 \times W + 66.9 \times H/100 + 3769)/4.186$ $(36.4 \times W + 104.6 \times H/100 + 3619)/4.186$
60- $(36.8 \times W + 4719.5 \times H/100 - 4481)/4.186$ $(38.5 \times W + 2665.2 \times H/100 - 1264)/4.186$ $W\mathrm{:\ weight\ (kg)},\ H\mathrm{:\ height\ (cm)},\ A\mathrm{:\ age\ (years)}$

## The text file revised edition of “METs table of Physical Activities”

I have asked National Institute of Health and Nutrition if I could publish the text file revised edition of “METs table of Physical Activities” on this blog on July 3rd, 2012. I have received e-mail from staff on July 12, 2012, they consent that I publish the text file.

The file has 4 columns and 826 rows. First row shows data structure. First column shows code, second column METS value, third column major heading, and fourth column specific activities. I couldn’t separate English from Japanese.

METS2011

The source is this PDF file. Although you don’t have to contact National Institute of Health and Nutrition when you would like to use for yourself, you would be asked to contact National Institute of Health and Nutrition when you would like to publish the file or create a web service with the file.

## Extract from text revised edition of “METs table of Physical Activities”

National Institute of Health and Nutrition has revised ‘METs table of Physical Activities’ 2011 edition. Because it’s difficult to use as PDF file, I have extracted text data from it. I have asked if I could publish the file on this blog on July 3rd, 2012.

1. Open the file and copy all text.

2. Create new EXCEL book and paste with ‘Text File Wizard’. In the second tab, you have to remove all check mark of delimiters. In the third tab, select ‘String’ data type of column.

3. Press ‘Alt’ key and ‘F11’ key to launch VBE, insert module, and run the following code.

Option Explicit
Sub METS()
Dim mySht   As Worksheet
Dim myRng   As Range
Dim myAr    As Variant
Dim i       As Long
Dim j       As Long
Dim myReg   As Object
Dim myMatches   As Object
Dim myMatch     As Object
Const strReg    As String = "^[0-9]{5}\$"
Dim CODE()  As String
Dim METS()  As Single
Dim SpecificActivities()    As String
Dim myArray()   As Variant
Set myReg = CreateObject("VBScript.RegExp")
With myReg
.Pattern = strReg
.IgnoreCase = True
.Global = True
End With

Set mySht = ActiveSheet
Set myRng = mySht.UsedRange
myAr = myRng
j = 0
For i = LBound(myAr) To UBound(myAr)
If myReg.Test(myAr(i, 1)) Then
Set myMatches = myReg.Execute(myAr(i, 1))
ReDim Preserve CODE(j)
ReDim Preserve METS(j)
ReDim Preserve SpecificActivities(j)
CODE(j) = myAr(i, 1)
METS(j) = myAr(i + 1, 1)
MajorHeading(j) = myAr(i + 2, 1)
SpecificActivities(j) = myAr(i + 3, 1)
j = j + 1
End If
Next i
ReDim myArray(j, 3)
For j = LBound(myArray) To UBound(myArray) - 1
myArray(j, 0) = CODE(j)
myArray(j, 1) = METS(j)