ipaq: Scores 'International Physical Activity Questionnaire (IPAQ)'

Description Usage Arguments Value Author(s) References Examples

View source: R/ipaq.R

Description

Scores 'International Physical Activity Questionnaire (IPAQ)' short form.

Usage

1
ipaq(ipaqdata)

Arguments

ipaqdata

Data which consists of thirteen columns:

Column 1: ID
Column 2: Weight
Column 3: VigDays: Number of days doing vigorous physical activity per week
Column 4: VigHours: Number of hours in vigorous physical activity per day
Column 5: VigMin: Number of minutes in vigorous physical activity per day
Column 6: ModDays: Number of days doing moderate physical activity per week
Column 7: ModHours: Number of hours in moderate physical activity per day
Column 8: ModMin: Number of minutes in moderate physical activity per day
Column 9: WalkDays: Number of days walking per week
Column 10: WalkHours: Number of hours walking per day
Column 11: WalkMin: Number of minutes in walking per day
Column 12: SitHours: Number of hours sitting per day
Column 13: SitMin: Number of minutes sitting per day

Value

Three additional columns [MET, kilocalories, pacat] are provided, to the data supplied to the function.

MET: Metabolic Equivalent of Task.
kilocalories: Kilocalories are computed from MET-minutes.
pacat: Physical activity classification into 'Low', 'Moderate', or 'High'.

Author(s)

Jaejoon Song <[email protected]>

References

Craig, C.L., et al. International physical activity questionnaire: 12-country reliability and validity. Med Sci Sports Exerc, 2003. 35(8): p. 1381-95.

The International Physical Activity Questionnaire. (2015, June 1). Retrieved from
http://www.ipaq.ki.se

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
## Generating a random IPAQ data for illustration
set.seed(1234)
n <- 20
ID <- rep(1:n)
weight <- rtnorm(n, mean=75, sd=15, lower=40, upper=120)
VigDays <- sample(rep(0:2),n,replace=TRUE)
VigHours <- sample(rep(0:1),n,replace=TRUE)
VigMin <- sample(rep(0:60),n,replace=TRUE)
VigHours <- ifelse(VigDays==0,0,VigHours)
VigMin <- ifelse(VigDays==0,0,VigMin)
ModDays <- sample(rep(0:3),n,replace=TRUE)
ModHours <- sample(rep(0:2),n,replace=TRUE)
ModMin <- sample(rep(0:60),n,replace=TRUE)
ModHours <- ifelse(ModDays==0,0,ModHours)
ModMin <- ifelse(ModDays==0,0,ModMin)
WalkDays <- sample(rep(0:7),n,replace=TRUE)
WalkHours <- sample(rep(0:2),n,replace=TRUE)
WalkMin <- sample(rep(0:60),n,replace=TRUE)
WalkHours <- ifelse(WalkDays==0,0,WalkHours)
WalkMin <- ifelse(WalkDays==0,0,WalkMin)
SitHours <- sample(rep(1:14),n,replace=TRUE)
SitMin <- sample(rep(1:60),n,replace=TRUE)

sampleIPAQ <- data.frame(ID, weight, 
                         VigDays, VigHours, VigMin,
                         ModDays, ModHours, ModMin,
                         WalkDays, WalkHours, WalkMin,
                         SitHours, SitMin)

# Now scoring the data
output <- ipaq(ipaqdata=sampleIPAQ)

Example output

Loading required package: msm

score documentation built on May 30, 2017, 3:30 a.m.