# View the codebook
data_codebook_immigration
if (FALSE) {
# Use with UK manifesto sentences (requires API key)
if (requireNamespace("quanteda", quietly = TRUE)) {
coded <- qlm_code(data_corpus_manifsentsUK2010sample,
data_codebook_immigration,
model = "openai/gpt-4o-mini")
# Compare with crowd-sourced annotations
crowd <- as_qlm_coded(
data.frame(
.id = docnames(data_corpus_manifsentsUK2010sample),
docvars(data_corpus_manifsentsUK2010sample)
),
is_gold = TRUE
)
qlm_validate(coded, gold = crowd)
}
}
Run the code above in your browser using DataLab