#fit linear model full and restricted lm full_model <- lm(Score ~ Wordlist + Age, data = memory_data) restricted_model <- lm(Score ~ Wordlist, data = memory_da