diff --git a/R/idiomclassification_mk_pf.R b/R/idiomclassification_mk_pf.R
index 82516a3..09aee79 100644
--- a/R/idiomclassification_mk_pf.R
+++ b/R/idiomclassification_mk_pf.R
@@ -25,7 +25,7 @@
   select(-matches("CO_TOKEN.*")) %>% # keep tokens for interpretability
   mutate(across(matches(".rank.*"), ~ replace_na(.x, 1000))) %>%
   mutate(across(c("dice", "lfmd", "llr", "ld", "pmi"), ~ replace_na(.x, min(.x) - 1))) %>%
-  rename_at(syfeatures$innames, ~ syfeatures[syfeatures$innames==.x,]$synames ) %>%
+  rename_at(syfeaturenames$innames, ~ syfeaturenames[syfeaturenames$innames==.x,]$synames ) %>%
   mutate(across(everything(), ~ replace_na(.x, 0))) %>%
   mutate(CO_IDIOM = as.factor(if_else(CO_IDIOM !=1, "0", "1")))