Description Usage Arguments Value Examples
View source: R/PediIKDC_Scoring_Algorithm.R
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.
1 |
data |
A data frame. |
vars |
A character vector of length 20 specifying the names of the 20 questions that factor into the score. |
This function returns the original data frame provided as input with an additional variable storing the pedi-IKDC score.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 | 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)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.