# View the codebook
data_codebook_sentiment
# \donttest{
# Use with movie review corpus (requires API key)
coded <- qlm_code(data_corpus_LMRDsample[1:10],
data_codebook_sentiment,
model = "openai")
# Create multiple coded versions for comparison
coded1 <- qlm_code(data_corpus_LMRDsample[1:20],
data_codebook_sentiment,
model = "openai/gpt-4o-mini")
coded2 <- qlm_code(data_corpus_LMRDsample[1:20],
data_codebook_sentiment,
model = "openai/gpt-4o")
# Compare inter-rater reliability
comparison <- qlm_compare(coded1, coded2, by = "rating", level = "interval")
print(comparison)
# }
Run the code above in your browser using DataLab