In rubenarslan/codebook: Automatic Codebooks from Metadata Encoded in Dataset Attributes

if (!exists("indent")) {
    indent = ''
}
if (exists("testing")) {
    example("alpha", "psych")
  x = a4
}

r indent Reliability

r indent 95% Confidence Interval

if (!is.null(x$total$ase)) {
  knitr::kable(data.frame(lower = x$total$raw_alpha - 1.96 * x$total$ase, 
             estimate = x$total$raw_alpha, 
             upper = x$total$raw_alpha + 1.96 * 
  x$total$ase))
}

knitr::kable(x$total)

r indent Reliability if an item is dropped:

rownames(x$alpha.drop) <- recursive_escape(rownames(x$alpha.drop))
knitr::kable(x$alpha.drop)

r indent Item statistics

rownames(x$item.stats) <- recursive_escape(rownames(x$item.stats))
knitr::kable(x$item.stats)

r indent Non missing response frequency for each item

rownames(x$response.freq) <- recursive_escape(rownames(x$response.freq))
knitr::kable(x$response.freq)

rubenarslan/codebook documentation built on Oct. 16, 2024, 3:54 p.m.