## ----eval=FALSE---------------------------------------------------------------
# install.packages("PROscorer")
## ----eval=FALSE, message = FALSE----------------------------------------------
# library(PROscorer)
## ----eval=FALSE---------------------------------------------------------------
# dat <- PROscorerTools::makeFakeData(n = 20, nitems = 30, values = 1:4, id = TRUE)
# dat
## ----eval=FALSE---------------------------------------------------------------
# c30scores <- qlq_c30(dat, 'q')
# c30scores
## ----eval=FALSE---------------------------------------------------------------
# c30scores <- qlq_c30(df = dat, iprefix = 'q')
# c30scores
## ----eval=FALSE---------------------------------------------------------------
# dat_scored <- data.frame(dat, c30scores)
# dat_scored
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.