Implement and test simple models of learning (habituation) and attention shifting, and test them for stereotyped looking time behavior (e.g., the Hunter & Ames 1988 model).
The Pelz model has five components:
We plot the learning curve for an attended stimulus and decay curve (\(\beta = 0.1\)) for unattended stimuli below. The Gompertz learning curve has parameters \(a = 100\), the maximum amount of information (bits) that can be learned from each object; \(b = 5\), the amount of initial information, and learning rate \(c = 1\).
We run a simple simulation with three objects, each with starting information of 1.
sim1 = run_sim(c(1,1,1))
long <- sim1 %>% pivot_longer(cols = starts_with("Object."),
names_to="Object",
names_prefix="Object.",
values_to="Information")
long %>% ggplot(aes(x=time, y=Information, group=Object, color=Object)) +
geom_point() + geom_line() +
theme_bw()