sf12 | R Documentation |
SF12 questionnaire scoring
sf12(X = NULL)
X |
a |
This is an R port of SAS algorithm by Apolone and Mosconi found here.
SF-12 is a registered trademark of medical outcomes trust.
## -------------------------
## Algorithm test/validation
## -------------------------
(scores <- sf12(sf12sample))
## website data test (printing with many decimals for 10 selected
## questionnaires)
web <- c(1,2,4,5,11,27,28,31,37,39)
print(scores[web,], digits = 6)
## SF12 Manual checks
print(unlist(lapply(scores, mean)), digits = 3)
print(unlist(lapply(scores, sd)), digits = 3)
print(lapply(scores, range), digits = 3)
## Correlations
db <- cbind(sf12sample, scores)
var.order <- c(2:5,8,1,10,12,6,7,9,11)
cors <- cor(db)[var.order, 13:14]
print(cors, digits = 1)
## Fine: reversed item have reverse sign correlation coefficients
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.