pedi_ikdc: Calculates the pediatric International Knee Documentation...

In mccartqm/proms: Score Patient-Reported Outcome Measures

Description

The pedi-IKDC score will not be calculated if more than two items are missing. Per the pedi-IKDC scoring instructions, item 12 does not factor into the overall score.

Usage

pedi_ikdc(data, vars)

Arguments

data	A data frame.
vars	A character vector of length 20 specifying the names of the 20 questions that factor into the score.

Value

This function returns the original data frame provided as input with an additional variable storing the pedi-IKDC score.

Examples

df <- data.frame(id=1:50,
                 q1=sample(0:4, 50, replace = T), q2=sample(0:10, 50, replace = T),
                 q3=sample(0:10, 50, replace = T), q4=sample(0:4, 50, replace = T),
                 q5=sample(0:4, 50, replace = T), q6=sample(0:4, 50, replace = T),
                 q7=sample(0:1, 50, replace = T), q8=sample(0:1, 50, replace = T),
                 q9=sample(0:4, 50, replace = T), q10=sample(0:4, 50, replace = T),
                 q11a=sample(0:4, 50, replace = T), q11b=sample(0:4, 50, replace = T),
                 q11c=sample(0:4, 50, replace = T), q11d=sample(0:4, 50, replace = T),
                 q11e=sample(0:4, 50, replace = T), q11f=sample(0:4, 50, replace = T),
                 q11g=sample(0:4, 50, replace = T), q11h=sample(0:4, 50, replace = T),
                 q11i=sample(0:4, 50, replace = T), q12=rep(0, 50),
                 q13=sample(0:10, 50, replace = T))

## item 12 does not factor into the score
vars <- names(df)[c(2:20, 22)]

df <- pedi_ikdc(df, vars)

mccartqm/proms documentation built on May 29, 2019, 11:40 a.m.