score (version 1.0.2)

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

Description

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

Usage

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'.

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

## 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)