| Title: | Cognitive Assessment Scoring with LLMs |
|---|---|
| Description: | R interface to the Python cat-cog package. Scores CERAD constructional praxis (drawn shape) assessments using LLMs. A thin domain wrapper around cat.stack for cognitive test scoring from images. |
| Authors: | Chris Soria [aut, cre] |
| Maintainer: | Chris Soria <[email protected]> |
| License: | GPL (>= 3) |
| Version: | 0.1.0 |
| Built: | 2026-07-04 06:20:04 UTC |
| Source: | https://github.com/chrissoria/cat-llm |
Wraps the Python cat_cog.cerad_drawn_score() function. Scores drawn shapes
(circle, diamond, rectangles, cube) from the CERAD constructional praxis
assessment using vision-capable LLMs.
cerad_drawn_score( shape, image_input, api_key, user_model = "gpt-4o", creativity = NULL, safety = FALSE, chain_of_thought = TRUE, filename = NULL, save_directory = NULL, model_source = "auto", ... )cerad_drawn_score( shape, image_input, api_key, user_model = "gpt-4o", creativity = NULL, safety = FALSE, chain_of_thought = TRUE, filename = NULL, save_directory = NULL, model_source = "auto", ... )
shape |
Character. The shape being scored: |
image_input |
Character. Path to the image file or directory of images. |
api_key |
Character. API key for the model provider. |
user_model |
Character. Model name. Default |
creativity |
Numeric or |
safety |
Logical. Save progress after each item. Default |
chain_of_thought |
Logical. Enable chain-of-thought reasoning. Default
|
filename |
Character or |
save_directory |
Character or |
model_source |
Character. Provider hint: |
... |
Additional arguments passed to the Python function. |
A data.frame with scoring results.
## Not run: # Score a single circle drawing result <- cerad_drawn_score( shape = "circle", image_input = "path/to/circle_drawing.png", api_key = Sys.getenv("OPENAI_API_KEY") ) # Score a directory of cube drawings results <- cerad_drawn_score( shape = "cube", image_input = "path/to/cube_drawings/", api_key = Sys.getenv("OPENAI_API_KEY"), user_model = "claude-sonnet-4-5-20250929", model_source = "anthropic" ) ## End(Not run)## Not run: # Score a single circle drawing result <- cerad_drawn_score( shape = "circle", image_input = "path/to/circle_drawing.png", api_key = Sys.getenv("OPENAI_API_KEY") ) # Score a directory of cube drawings results <- cerad_drawn_score( shape = "cube", image_input = "path/to/cube_drawings/", api_key = Sys.getenv("OPENAI_API_KEY"), user_model = "claude-sonnet-4-5-20250929", model_source = "anthropic" ) ## End(Not run)